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EDITORIAL 





CHERS AMIS 


Certaines choses ont déjà changé dans le journal, d'autres vont 
encore être améliorées. 


Tout d'abord cet éditorial qui commence à devenir chose courante, 
d'ailleurs je fais appel à tous les membres du club, si quelqu'un 
désire faire des propositions, qu'ilnous les adresse . Entre autre, 
un sujet d'article à été réclamé et qui ressemblerait à l'ancienne 
rubrique ‘tips and routines'', envoyez nous vos propositions pour 

le titre de cette rubrique (si possible en français) et surtout vos 
articles qui eux seuls pourront remplir le journal. 


Tous les membres du bureau tiennent à remercier les membres qui nous 
ont aidés par leurs lettres d'encouragement (entre autre: BRAVO POUR 
LE SICOB; et pour conserver NOTRE journal; mais surtout un grand merci 
à toutes les âmes nobles pour leur don pour le SICOB). 


Actuellement, nous étudions une nouvelle présentation pour le journal 
et combler quelques lacunes en rubriques: 


— page de garde telle quelle: avec le sommaire, mais plus 
écrit par catégorie, seulement pages par pages et sera 
présenté en gros caractères un sujet particulier; 

- éditorial; 

—- vente et organisation du club; 

— éventuellement courrier des lecteurs: critiques, 
compliments, impressions, ...; 

- PPCritiques <> HP (cette nouvelle rubrique nous est venu 
suite à la lecture de PPC Lausanne, trés joli et trés 
interressant journal, qui a une rubrique ‘dis monsieur HP''; 

— quoi de neuf? (nouveautés en matériels et logiciels); 

- dossiers (éventuellement): portera sur tout le matériel 
que nous aurons à tester; 

- articles à caractères généraux (matériels, modules, 
apprentissage, organigrammes, ...); 

— applications et programmes concernant la 41 (RPN, microcode,...); 

— applications et programmes concernant la 75; 

- applications et programmes concernant le 71 (basic, forth, 
assembleur, ...); 

— HPIL et CONVERTISSEUR HPIL; 

- autres (series 10, E, 80, ...); 

— codes barres; 

- bulletin d'adhésion. 

voici les quelques rubriques possibles auquelles nous avions pensé, si vous 

avez des suggestions à faire,envoyez les nous, mais surtout, nous ne le répétons 
pas assez, envoyez nous vos programmes, vos idées. N'oubliez pas que 

même une routine qui vous semble facile à vous, peut être compliquée pour un 
autre. 


Un deuxième sujet à traiter aujourd'hui,nous sommes actuellement à l'étude 
d'unconcours au sein du club. Nous attendons d'autre part une réponse de chez 
HP pour avoir des prix à vous offrir. Ce concours débutera lors de notre 
prochaine assemblée générale en septembre et durera 10 mois. les résultats 
seront communiqués lors de l'assemblée générale de septembre 85. Les clauses 
de ce concours sont encore à définir et le jugement sera fait par l'ensemble 
des membres du club. 


De mauvaises langues veulent faire croire que nous ne sommes pas capable 

de faire notre propre journal, mais nous informons tous nos lecteurs 

que d'ici quelques mois, un nouveau journal va sortir et qui sera un 

compte rendu des meilleurs articles parus dans plusieurs revues étrangères. 
I1 sera en anglais, français et allemand. Avant de tout mettre en route, 
j'aimerais savoir qui sera interressé et que proposez vous comme titre 
(Digest PPC; PPC en Vrac; Tout PPC; PPC Etc...; (prc)PPC. 55): Ceci 

vous permettra de connaître un certain nombres d'articles parus dans le 
monde, car nous avons déjà eu l'accord d'un certain nombre de pays. 


En ce qui concerne UPLE, rien n'à encore été décidé par HP. Ils sont 
actuellement à l'étude pour ouvrir un nouveau club dont la marche reste 
encore à définir. 


N'oubliez pas que nous avons un stand au prochain SICOB de printemps, 
notre stand sera au niveau 4, zone D, numéro 417, juste derrière le 

club microtel. Un certain nombre de membres nous ont répondu par 
l'affirmative, mais tous, ne peuvent nous consacrer qu'un jour ou deux, 
nous attendons donc de connaître ceux qui peuvent éventuellement se 
libérer de leurs obligations et nous consacrer un peu de temps durant 
l'exposition du 14 au 19 mai. Nous attendons une réponse URGENTE, et 

que ceux qui peuvent nous préter du matériel se fassent connaître auprés 
de J.-C. BECKER au 373 61 87. 


D'ici quelques jours, nous devrions avoir la confirmation d'une salle 

de réunion qui nous sera disponible tous les premiers samedi de chaque 
mois de 16 à 19 heure. nous aimerions connaître ceux qui sont suceptibles 
de pouvoir organiser des réunions dans Paris et que ceux qui peuvent en 
organiser en province se fassent connaître. Nous avons tous en mémoire 
les propositions de FRANCK LEBASTARD qui organise à son idée, son propre 
club, et celui marche merveilleusement bien. Je pense que ce n'est pas 

à nous de vous demander d'être ‘coordinateur régionnal'", mais c'est à 
vous tous , mes amis, de vous organiser en petits groupes pour vous 
réunir et échanger vos propre idées sur tel et tel programme, ou sur 

tel problème ... Nous avons une dernière prière à formuler, nous 
recherchons sur toute la France des personnes qui serait susceptibles 

de consacrer régulièrement quelques heures au club pour donner des cours 
d'initiation aux débutants, et ceux qui seraient capables de donner 

des cours de perfectionnement aux initiés. Les animateurs de ces cours 
devront être des bénévoles, et les cours seront donnés dans les usines, 
les écoles et tous ceux qui utilisent ou sont susceptibles d'utiliser le 
matériel HP. Certaines discussions avec des étrangers au club mais 

aussi des membres, nous a permis de constater que les gens manquent 
d'informations et restent souvent chez eux leur machine sur une table 

qui devient malheureusement pour beaucoup une ‘règle à calculer'' un peu 
évoluée, mais qui ne progressent pas ou peu en programmation. Les 

membres du bureau sont à l'étude de cegenre de service dans Paris, et 

qui pourrait bien être opérationnel d'ici quelque temps mais nous recherchons 
tous ceux qui peuvent s'en occuper en province. La participation au frais 
des élèves sera minime. 


Espérant entendre vos propositions, les membres du 
bureau vous souhaitent une bonne programmation. 


PS: nous avons oublié de dire que dans la nouvelle rubrique "PPCritique <> HP", 
nous parlons de critiques constructives, car HP France lit notre journal 
et nous pensons que ceci peut améliorer non seulement nos rapports 
avec le constructeur d'un matériel de bonne qualité mais cher et 
améliorer la qualité des services que propose un constructeur à 
ses utilisateurs. Les compliments ne sont pas à dédaigner. 


COURRIER DU COEUR: 





STEPHANE SAULNIER, 1 allée de la Source, 78480 VERNEUIL s/ SEINE, 


OFFRE EXEPTIONNELLE !! VEND HP41CV (accélérée) + XFCT et XMEM 
(regroupés) + TIME + MODULE MATH pour 3000FF et un lecteur 

de cartes avec 3 carnets de bibliothèque de programmes personnelle 
pour 8OO0FF 


VINCENT HERLICQ, 3 rue Berteaux-Dumas, 92200 NEUILLY s/ SEINE, TEL: (1) 624 26 17 


VENDS HP41CV (accélérée x2, avec interrupteur) 1500FF 


TIME + XMEM (en 1 module) 9OOFF 
XFCT + XMEM (en 1 module) 9OOFF 
HP41C + QUAD 1100FF 
MODULE MATH 200FF 
MLDL (SCIP) 4k RAM + 4k EPROM avec EPROM 

MLEIH + listing 1500FF 
EPROM ASSEMBLEUR3 + manuel 200FF 


possibilité de réduction si achat de plusieurs articles. 


ALAIN BOCHET, 4 rue Poirier, 94160 SAINT MANDE, TEL: (1) 374 24 57 


PS: 


H de B: (1) 207 75 36 poste 45 
VENDS  HP41 CV du 07 / O9 / 82 
MODULE HORLOGE du 07 / 09 / 82 
1 MODULE XFCT & XMEM du 06 / 12 / 82 
le tout à l'état neuf, toutes les notices en français, 
prix 2500FF (factures d'origine fournies) 


nous retenons la candidature des gens qui nous ont proposé de tenir le stand 
au SICOB, mais nous cherchons encore exposants 
merci 


PHILIPPE 


NOUS EN AVONS: 


Sont en vente- au club: 


Des cartes magnétiques au prix de 3O0O0FF les 100; 

Des EPROMS (2716 et 2732) au prix de 55FF pièce (les éproms vierges, pour des 

eproms programmées, me consulter) + (port); 

Des convertisseurs + connecteur + manuel (HP82166A) au prix de 1370FF (prix HT) + (port) 
Des modules HPIL ''en promotion" (HP82160A) au prix de 640,81FF (prix HT) + (port); 

Des MLDL Hollandais (soit 24k ROM paginés par 4k + 8k RAM + l'éprom ERAMCO) au prix 

de 3050FF (prix TTC), il faut compter un délai de 1 mois à un mois et demi {+port); 
Pour les commandes de ZENROM (ROM Anglaise) et de CCDROM (ROM Allemande), prière de 
m'envoyer vos commandes maintenant. Les livraisons sont prévues pour cet été, 

prix approximatif de 1000 à 1200FF. (joindre un chèque de 500FF pour réservation); 

Le VASM contenant les trois premières pages de la ROM interne de la 41 (pages ®, 1, 2) 
Le VASM est le listing HP des pages d'adresse Ÿ, 1, 2, toutes les routines sont 
expliquées pas à pas. 





Aujourdh'ui dans le courrier des lecteurs, pas grand chose, tout d'abord une 
lettre de Hervé BAUDU qui ne fait pas encore partie du club, mais que ceux qui 
connaissent la réponse à son SOS lui répondent de toute urgence. 


Merci 
PHILIPPE 
HERVE BAUDU 
55, rue du Panorama 
27000 EVREUX 


Messieurs, 

Je possède une HPA1c avec un module horloge et un module navigation. 

Pour faire un point astronomique seul au sextant en mer, il est indispensable 
de déclencher l'heure exacte en même temps que la visée de l'astre. Actuellement, 
je possède un système peu commode d'un déclencheur souple d'appareil photographique 
qui déclenche l'heure assignée à une touche du clavier. 

Dernièrement, j'ai rencontré un ingénieur informaticien qui m'a dit qu'en 
connaissant la fréquence qui déclenche l'heure dans le module horloge, il y aurait 
moyen de fabriquer un motage simple qui agirait sur cette fréquence. 

Je vous demande si vous connaissez cette fréquence et si un montage de cette 
sorte à déjà été fait, ou m'indiquer tout autre système pratiquepouvant me permettre 
de déclencher à distance. 

comptant sur vous pour me donner toutes indications, je vous prie, messieurs, de 
bien vouloir accepter l'expression de mes sentiments distingués 


HERVE BAUDU 


PHILIPPE TENAND (PPCPC 44) 
2, bis rue de l'Egalité 
94300 VINCENNES 


Une découverte encore bizarre: 
En vous préparant de retirer la batterie; faites un BEEP. Si vous interrompez le 
BEEP en retirant la batterie durant son écoute, 3 choses peuvent apparaitre: 


— L'écran se vide; vous pouvez faire SHIFT ou ALPHA, seuls ces deux mots s'inscrivent 
et rien d'autre; mais en refaisant ALPHA tout redevient normal (%,%Y999 revient) 

— L'écran se vide; mais en appuyant sur ALPHA, ALPHA s'allume, mais PRGM aussi et 

en même temps. Un deuxième coup sur ALPHA remet tout dans l'ordre et vous vous 
retrouvez dans un sous programme. 

— Si l'interruption a eu lieu pendant le deuxième TONE qui compose le BEEP (faire 
plusieurs essais pour trouver le moment éxact), votre machine se trouve transformée 
elle est tout à fait normale, tout fonctionne, sauf qu'à la moindre pression de 
touche, un son strident se fait entendre. Ce TONE special, dure pendant toute 
opération, tout programme. Faites ON, puis ON; eh oui! ce son ne vous quittera 
plus jamais! UNE SEULE METHODE POUR L'ENLEVER (sans faire memory lost): faire 
un TONE ou un BEEP. Si vous voulez donc garder une HP musicale, gardez votre 
machine telle quelle (aucun danger). Mais ne faites plus ni TONE ni BEEP (même 
programmé, celà ne doit pas fonctionner). Mais si comme moi, au bout de deux semine 
ce son vous énerve, un petit BEEP et tout rentrera dans l'ordre. Quelques essais 
et hop, votre HP peut à nouveau jouer de la flûte. 

Pour ceux qui n'ont pas l'habitude de manier avec dextérité la batterie pour défier 
ce grand ogre de 41C; la patience est demandée. 

Quels sont ceux qui comme moi, ont entendus de leurs 41 certains gazouillis 

réguliers et étrangers à ceux synthétiquement programmables, de l'extrême grave à 
l'extreme aigu? Ont ils pu noter leurs manipulations successives? Ce que moi j'avais 


OMIS... PHILIPPE TENAND 


RADIO 41C se trouve en onde courte. Fréquence 9,166 MegaHertz. Collez votre 41 prés 

de l'antenne radio, et en pressant les touches, écoutez la musique des anges. 

Mettez votre machine en marche (ON), collez l'endroit de son Haut Parleur arrière prés 
de l'oreille et pressez une touche : oui; à toute action, ELLE MURMURE un son etouffé. 


L 


RECTIFICATIF AU PROGRAMME SOS: 


Dans le numéro d'avril 1984 est paru le programme SOS. 
Deux tests doivent être modifiés comme suit dans l'organigramme. Le programme 


joint, tourne normalement. 














RON RESPIRE? 
OUI 






NS CONSCIENCE? 
OUI 






GI — NON 





QI - NON 


JEAN CLAUDE BECKER 


en dernière minute, 
YVES AUBRIOT, 65 rue Clisson, 75015 PARIS, me signale qu'il vend un ordinateur 
de table: un DATI accompagné d'un mémocom (lecteur de micro-cassettes 


trés rapide: environ 8000 bauds)et d'un processeur arithmétique, 


plus des programmes scientifiques, de gestion, de jeux et autres. 
Tout ce matériel est en excellent étatet vendu environ 7O0O0FF. 


pour le prix, on peut toujours discuter et l'ordinateur est un 


DAT de 48Kk. 














19 Février 1984 
MINISTERE DE L'INDUSTRIE ET DE LA RECHERCHE 


Enrichissement du vocshulaire de informatique. 





Le ministre de l'industrie et de la recherche et le ministre de 
l'éducation nationale, 


Vu la loi n° 75-1249 du 31 décembre 1975 relative à l'emploi de la 
langue française ;: 

Vu le décret n° 83-243 du 25 mars 1983 relatif à l'enrichissement 
de la langue française ; 

Vu l’arrèté du 22 décembre 1981 relatif à l'enrichissement du 
vocabulaire de l'informatique ; 

Vu lavis du haut comité de la langue française en cate du 
31 janvier 1983; 

Sur proposition du président de la commission de terminologie 
de l'informatique, 


Arrêtent: 


Art. 1°. — Les expressions et termes inscrits sur la liste annexée 
au présent arrêté sont approuvés. 

Us s'ajoutent aux expressions et termes inscrits sur la liste n° 1 
annexée à l’arrété du 22 décembre 1981. 


Is seront obligatoirement utilisés : 


a) A- compter d’un délai de trois mois suivant la publication du 
présent arrêté, dans les décrets, arrêtés, circulaires, instructions et 
directives des ministres et des fonctionnaires de l'Etat placés 
sous leur autorité. 

b) À compter d’un délai de six mois suivant la publication du 
présent arrêté, dans les correspondances, documents et productions 
de quelque nature que ce soit qui émanent des administrations, 
services et établissements publics de l'Etat (ou qui leur sont 
adressés). 

c) À compter d'un délai de six mois suivant la publication du 
présent arrêté, dans les -marchés et contrats auxquels l'Etat 
ou les établissements publics de l'Etat sont parties. 

d) A compter d’un délai de six mois suivant la publication du 
présent arrêté, dans les éditions ou rééditions des ouvrages 
d'enseignement, de formation ou de recherche utilisées dans les 
établissements, institutions ou organismes dépendant de l'Etat, 
placés sous son autorité ou soumis à son contrôle ou bénéficiant 
de son concours financier à quelque titre que ce soit. 


Art. 2. — Le présent arrêté sera publié au Journal officiel de la 
République française. 
Fait à Paris, le 30 décembre 1988. 


Le ministre de l’industrie et de la recherche, 
LAURENT FABIUS. 


Le ministre de l'éducation nationale, 
ALAIN SAVARË. 





LISTE 





D’arrière-plan (loc. adj.) qualifie un traitement qui est exécuté 
lorsque les ressources ne sont pas affectées à un programme 
en temps réel ou à des programmes prioritaires (anglais : 
background). 

Article (n. m.) : groupe de données associées, constituant une unité 
élémentaire. Synonyme : enregistrement logique. 

Bit (n. m.) : information représentée par un symbole à deux valeurs 
généralement notées 0 et 1, associées aux deux états d'un 
dispositif. 

Bogue (n. f.) : défaut de conception ou de réalisation se manifestant 
par des anomalies de fonctionnement (anglais : bug). 

Calculette (n. f.) : calculatrice électronique de petite dimension. 


Courtier (n. m.) : intermédiaire entre serveurs et utilisateurs, assis- 
tant ces derniers pour le choix et la consultation des banques 
de données (anglais : broker). 

Déboguer (v, tr): éliminer les bogues ; dérivé: débogage (anglais: 
to debug). 

Descripteur (n. m.) : mot ou locution contribuant à caractériser 
l'information contenue dans un document et à en faciliter la 
recherche. 


Didacticiel (n. m.) : logiciel spécialisé pour l’enseignement. 


agencement structuré d’un support de Gonnées. 
: formater (v. 


Format (n m.) 
Disposition des données elles-mêmes; dérivés 
tr.), formatage (n. m.). 


JOURNAL OFFICIEL DE LA REPUBLIQUE FRANÇAISE 


N.C. 1741 


Génie logiciel {n. m.) : ensemble des activités de conception et de 
mise en œuvre des produits et des procédures tendant à ratio- 
naliser la production du logiciel et son suivi 

informatique (adj.) : qui se rapporte à l'informatique. 

instaurer (v. tr.) : mettre dans un état actif (anglais : to set). 

Langase formel (n. m.) : langage qui utilise un ensemble de termes 
et de règles syntaxiques pour permettre de communiquer 
sans aucune ambiguïté (par opposition à langage naturel). 


Ludiciel (n. m.) : logiciel de jeu. 

Maintenance (n. f.) : ensemble d’actions tendant à prévenir ou à 
corriger les dégradations d’un matériel afin de maintenir ou 
de rétablir sa conformité aux spécifications. 

Note. — Ce terme ne doit pas être employé pour désigner 
les améliorations fonctionnelles ou de performances appor- 
tées à chaque nouveile version d’un iogiciel. 

Manche à balai {n. m.) : dispositif de commande à plusieurs degrés 
de liberté servant à déplacer le curseur d’une visu; abrévia- 
tion : manche (n. m). Synonyme : poignee (n. f.) (anglais : 
joystick). 


représentation de la localisation d'ensembles de 
mapper (v. 


Mappe (n. f.) 
données en vue d’en faciliter l’accès; dérivés : 
ir.\; mappage (n. m.) (anglais : map). 

Mémoire tampon (n. f.) : mémoire ou partie de memoire permettant 
le stockage temporaire de données entre deux organes ayant 
des caractéristiques différentes ; abréviation : tampon (n. m.) 
(anglais : buffer). 

Microprogramme (n. m.) ensemble ordonné d'instructions enre- 
gistrées dans une mémoire interne fonctionnellement distincte 
de la mémoire principale, et dont l’exécution permet celle 
d'une instruction non câblée du langage machine, ou d’une 
fonction programmée (anglais : firmware). 

Mot-clé (n. m.) : descripteur-extrait du texte qu'il caractérise ou 
d’un thésaurus (anglais : keyword). 

Ordinaïeur (n. m.) : équipement informatique de traitement auto- 
matique de données comprenant les organes nécessaires à son 
fonctionnement autonome (anglais : computer). 

Ordinateur individuel (n. m.) : ordinateur d’usage individuel, dans 
un cadre professionnel ou domestique. 

Pointeur (n. m.) donnée permettant de retrouver l'adresse d’un 
groupe de données (anglais : pointer). 

Producieur (n. m.) dans le domaine des banques de données, 
désigne celui qui les crée et les met à jour. 

Note. — Le terme prestataire, incorrect dans ce sens, est 
à proscrire. 

Relancer (v. tr.) remettre en marche un système informatique 
après sa restauration (angiais : to restart). 

Requête (n. £.) expression formalisée d’une demande (anglais : 
request). 

Restaurer (v. tr.) : remettre dans un état de référence (anglais : to 
reset ; to restore). 

Résumé (n. m.) : rédaction abrégée reprenant l'essentiel d’un texte 
(anglais : abstract). 


Spouie (n m.) mode d'exploitation d’un ordinateur en multi- 
programmation selon lequel les opérations d’entrée et de 
sortie sont automatiquement dissociées des traitements inter- 
médiaires, les données correspondantes étant placées dans des 
mémoires tampons (anglais : spool). 


Système de gestion de base de données (n. m.) (S.G.B.D.) : pour 
une base de données, logiciel permettant d'introduire les 
données, de les mettre à jour et d’y accéder (anglais : Data 
Base Management System, D. B. M.S.). 


Tableur (n. m.) . programme de création et de manipulation inter- 
actives de tableaux numériques visualisés. 


Tesf de performance (n. m.) évaluation des performances d’un 
système par simulation des conditions réelles d’utilisation, 
à l’aide de programmes-échantillons (anglais : benchmark). 


En texte intégral (loc. adj.) : qualifie une barque de données dans 
laquelle sont enregistrés des documents complets et non des 
résumés ou des descripteurs (anglais : full text). 


Transporteur (n. m.) : organisme gérant un réseau de télécommu- 


nications par lequel des utilisateurs accèdent aux centres 
serveurs. 


Version (n. f.) : état d’un logiciel mis à la disposition des utilisateurs, 
comprenant les corrections et améliorations apportées à l’état 
précédent (anglais : release). 





LA 41 MENE GRAND TRAIN: Plan d'ensemble du réseau informatique. 








Boitier de sélection 
du passage des Boitier de commande 
rames des aiguillases 


Ah 
4x a 


convertisseur 
HP 82166A 


A VIDEOS (une par voie de chemin de fer) 


interfaces 
vidéo 


= | boucle IL N°1 







table traçante 
(sous réserve) 


Ÿ 


RE 2 convertisseurs £ 
suis opte lecteur de 
lecteur enregistreur cassettes 
41 + XFONCTION + TIME de cartes magnétiques | 
+I/L + 1/0 (+ PLOTTER?) C1 
41-Af. 
— 4 imprimante 
> Ÿ thermique 
A1 + TIME + XFONCTIO 2A colonnes 


+ ZXMEMORY + IL + 10 
+ PORT-EXTENDER 


lecteur de 
codes barres 


IMPRIMANTE 80 colonnes 


boucle IL 
N°3 lecteur enregistreur de B 





cartes magnétiques 


172 


A41-C 


A1 + TIME + XFONCTION 
+ 2XMEMORY + I/L 


Remarque: le boitier de commande des aiguillages peut se brancher 
sur l'un quelconque des convertisseurs 





I —-. LA 41 MENE GRAND TRAIN; 
II -. COMMANDE D'APPAREILS ELECTRIQUES PAR LA BOUCLE IL; 


Et oui! Le voilà notre fameux montage pour le sicob. Bravo à toi OH! vénérable 
Jean-Claude pour cette fameuse étude et merci à notre ami Jacques Vaucelle 
qui nous a amené sa part de contribution dans le shéma électronique. 


III -. UNE NOUVELLE IMPRIMANTE HPIL; 
IV —-. HISTORIQUE TECHNIQUE DE LA NOUVELLE IMPRIMANTE HP2225B; 


UNE PETITE BOMBE 


V —. BANC D'ESSAT DU MLDL HOLLANDAIS: L'ERAMCO MLDL; 

VI —. PROGRAMMES EN MICROCODES: 
- CONVERSION DEC()HEX (DANIEL JACOB) 
— RCL NON NORMALISANT (DANIEL JACOB) 
— SAVEK (FREDERIC VADEZ) 
— KREG? (FREDERIC VADEZ) 
— CRFLK (FREDERIC VADEZ) 
— GETK (FREDERIC VADEZ) 


Le nom de DANIEL JACOB commence à être connu de nos colonnes et nous savons 
tous qu'il fournit un travail formidable. Mais on peut voir que FREDERIC 
VADEZ a, ce mois-ci, fournit des articles bien conçus et de plus en plus 
utiles et interessants. Continue dans cette voie Frederic. 


LA 41 MENE GRAND TRAIN L 


Tout d'abord, une remarque: pour des raisons de délai 
d'impression, ces lignes ont été écrites en même temps que 
nous procédions à l'élaboration du montage décrit; celui-ci 
sera donc peut-être légèrement différent.Pourvu qu'il fonc- 
tionne...Certaines nuits, j'ai du mal à m'endormir!k 


Le but principal de ce stand au SICOB, quand nous avons 
décidé de le monter, était de faire connaître à tous les uti- 
lisateurs de matériel portatif HP l'existence de tous nos 
clubs, et de susciter des vocations chez des gens qui ne se 
rendent pas compte de tous les avantages dlune A1+TIME pour 
les commandes d'automatismes entre autre.(Dommage que certains 
clubs nous aient''envoyé promener"! dlune façon guère polie,ni 
honnête...) 

Nous aurions pu présenter un stand classique, comme 
celui de CREATIQUE, mais il y en aura déjà plein le SICOB, 
et personne n'aurait fait attention à nous...Alors, nous 
avons décidé de faire un coup ENAURMEU. ..,quelique chose que 
nous serions seuls à réaliser,et qui attirerait visiteurs 

et journalistes,soiïit: la commande et la gestion complète 
d'un réseau de chemin de fer par un réseau de 41 ! 

Tous les détails, progammes, électronique, circuits 
imprimés, ...,seront intégralement publiés dans les prochains 
JPC. (Excusez-moi, mais jusqu'au SICOB, je suis vraiment 
trop débordé pour en faire plus..o) 


La maquette de chemin de fer (au 1/160e), d'une dizaine 
de mètres de long, nous est prêtée par un club de modèlisme, 
1' AFAN,"Association française des amateurs du N", que je 
renercLe au passage 

Quand au reste, l'électronique et les progr anmes 
gont faits par PPC-PARIS;les circuits imprimés , et peut- 
être des kits complet seront disponibles au siège de 
celui-ci, | 

Voici,S ous réserve d'avoir le matéÿiel nécessaire, 
(HP ne nous prête pas grand chose...),ce qu'il y aura: 

La première 41 (notée 41-A, cf, schéma) dirige le 
réseau.Elle lit les horaires des trains en mémoire de masse, 
(Lecteur de cassettes numérique),les stocke dans sa propre 
mémoire,affiche les départs des trains sur les téiéviseurs 
(chaque écran étant bien sûr affecté à une ve bien précis, 
fait démarrer les trains à l'heure indiquée, et transmet 
à la deuxième 41 (notée 41-B),1es numéros et caractéristi- 
ques des trains partants, par l'intermédiaire des boucles 
IL et des convertisseurs. 

De même, quand un train entre en gare, la 41-B trans- 
met son numéro à la 41-A, pour affichage. 

Quand 1a 41-A ne gère pas l'affichage,elle délivre 
des tickets de trains aux visiteurs du stand, par une méthode 
analogue à 1a méthode de réservation rapide des T.G.V.: 


un programme interactif questionne le voyageur, celui-ci 
répond en appuyant sur une des touches indiquées(toutes 

les autres étant bien sûr inàäctives).La vérification du 
droit au demi-tarif se fait par lecture de codes-barres 

sur une carte de réduction(on en prêteral). La machine déli- 
vre alors un ticket-souvenir en papier et un coupon magné- 


tique qu'il faudra ensuite valider pour prendre le train 
(cf. 41-C) CFE) 
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La deuxième 41 (41-B) gère le circuit des voies positionne 
les aiguillages, coupe ou alimente les ciinrons de voie, et 
opère un suivi des trains(avec,si les délais le permettent ,un 
tracé sur table traçante de ce suivi des trains...) 

A chaque fois qu'un train entre ou sort de la gare, elle 
en discute avec la 41-A, 

La troisième 41( 41-C, ne pas confondre avec 41C.)contrôle 
les billets, vérifie s'ils ne sont pas périmés,( ils ne sont 
valables que Smnl) et stocke en mémoire étendue, puis imprime 
la liste des passagers avec leurs destination. 


Ce montage regroupe donc à lui seul plusieurs réalisa- 
tions difficilement ou pas du tout réalisables sur des micro 
plus gros et suffisament spectaculaires pour intéresser aussi 
bien le profane que le spécialiste, tels que: commande de pé- 
ripheriques multiples, dialogue entre ordinateurs par des voies 
diverses, et surtout commandes indépendantes de plusieurs té- 
léviseurs par la même machine, ce que la plupart des microor- 
dinateurs ne savent pas faire. 


Bien sûr, il y aura encore bien d'autres choses sur 
ce stand: tous les produits de Jacques VAUCELLE( qui a trouvé 
l'idée de base du système de commande des aiguillages) et 
ceux d'Etienne POUPE, le M.L.D.L. Hollandais et probablement 
la toute nouvelle ROM Allemande si elle est prête, sans oublier 
nôtre grande vedette, la 71 faisant ses premiers pas. 

Si vous voulez, (pouvez?) prêter du matérielpour cette 
exposition,contactez d'urgence les membres du bureau (PPC=PC 
56 rue J.J. rousseau, 75001 PARIS) 

Et si vous venez pour recopier des programmes, n'ou— 
bliez pas vos mémoires de masse, nous n'aurons pas le droit 
de vous vendre de cartes magnétiquese….o 

En espérant vous voir nombreux: 


Chemindefèrementvôtre: 
Jean-Claude BECKER (P62) 


COMMANDE DIAPPARETILS ELECTRIQUES PAR LA BOUCLE IL 





Il existe des solutions avec les bus du convertis- 
seur HP 82166 A. 

Celle-ci ne l'utilise pas,(il reste libre pour tout 
appareil fonctionnant sur prise parallèle) et se sert de la 
Ligne GETO pour faire en quelque sorte une sortie série, Cha- 
que impulsion sur cette ligne fait avancer les compteurs d'un 
cran, et une impulsion sur la ligne DCLO les remet tous à ÿ. 

Un système à base de monostables valide des bascules 
J/K pour mémoriser les sorties des compteurs quand plus d'une 
seconde sépare deux impulsions sur GETO. 

Attention aux alarmes d'interruption! 

Pour plus de détails, reportez vous au schéma,et ne 
manquez pas la lecture de JPC de juin! 


Quelques remarques: : Pr 
Les rties # et 9 de chaque compteur sont inutilisées, 


: 1; & i ï ” 
Chaque circuit de commande utilise } sorties d'un comp 


teur | 
? Les circuits de commande peuvent fonctionner manuellement 


même si le convertisseur est enlevé, L FES 
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Remarque (suite): Le mode STANDBY 
(avec PWRUP et PWRDN devrait être 


CONVERTISSEUR fonctionnel). 


HP 82 166A 
R.A.Z.: Remise À Zéro 


DCLO  GETO 
26 m a 







COMPTEURS DECIMAUX BASCULES J/k 


(mémorisation) 


A circuits 


| 


de 


commande 


Ÿ 


ODNOO BRON = © 


Exemple de programme 
de commande 








simplifié: 
Q Si CLRHES ——> impulsion sur DCLO 
B3 TRIBGER 
O ag D hi D . . 
PT Î É3 TRICGER 3 impulsions sur GETO 
2 g4 TRIGCER 
3 85 PSE pause de 2 secondes: 
j 4! 66 PSE valide les J /k 
{4 pin 4j 
8e CLRDES ——+ remet a zéro 
9 _— BS TRIGCER 
6 83 TRIGGER 
1! > 18 TRIGRER 5 impulsions sur GETO 
8 li TRIGGER 
9 12 TEIGGER 
13 PSE —— arrêt minimum d'is 
$ lé ,EHE, pour valider les J/k 
JEAN-CLAUDE BECKER 
ÉS 
ds 
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Une nouvelle imprimante HP-IL 


Je vous l'annoçais le mois demier, et ce n'était pas un poisson 
d'avril ! HP introduit sur le marché une nouvelle imprimante HP-IL. 
Elle utilise une toute nouvelle technologie: le "jet d'encre". Ce 
procédé est déjà utilisé sur de plus gros matériels, mais à ma 
connaissance, c'est la première imprimante à jet d'encre dans la 
catégorie "portable". Cette technique donne de remarquables résultats, 
tels un niveau sonore très bon, et une qualité d'impression proche 
des systèmes de traitement de texte. 


Référencée HP 2225, elle existera en 3 versions: interfacée 
HP-IB, HP-IL, ou Centronics. Le modèle qui nous interessera sera 
Je Ne 2025 8°, 

La vitesse d'impression est de 150 caractères par secondes (cps), 
ce qui est excellent dans sa catégorie. Elle ne fait pas plus que 
50 dB de bruit quand elle imprime sur ses 80 colonnes. Eh oui, 
c'est une "petite-grosse", En mode "caractères compressés", elle 
permet d'obtenir 142 colonnes. Son jeu de caractères est compatible 
avec les imprimantes Epson matricielles. 

Ses dimensions sont plutôt petites: 8,9 cm en hauteur, 29,2 cm 

de largeur, et 20,6 en profondeur. Eh oui, c'est petit, mais HP 

a réussi à faire tenir des batteries dans le modèle HP-IL. 
Celles-ci permettent d'imprimer 200 pages. Mais elle est aussi 
utilisable sur secteur. 

Les caractères sont dessinés dans une matrice de 11 points par 
12, ce qui autorise les jambages descendants, et surtout donne 
de jolis caractères. 

Les graphiques sont possibles (au même titre que la HP 829058). 
Le tampon d'impression permet de mémoriser un Kilo-octets, ce 

qui permet d'envisager un tas d'applications nouvelles. 


Le coeur de cette imprimante est une tète d'impression 
remplaçable, référencée HP 92261, {8 $), qui tient 500 pages, 
et qui permet de préserver le reste du mécanisme de cette 
petite merveille. L'encre est composée de diéthilène glycol, 
et d'un pigment noir non toxique. 

On peut utiliser du papier standard, mais on aura un meilleur 
contraste en achetant du papier spécial HP, qui coutera une 
fois et demi plus cher. 

Elle fonctionne en traction, ou friction. 


Le prix, enfin, aux Etats Unis est plus élevé que ce que 
je vous laissais entendre (ou plutôt lire) le mois dernier: 
moins de 600 $ (4800 Frs). Il faudra certainement s'attendre 
à un prix plus élevé en France, sauf peut être si de gros 
distributeurs font des remises interessantes. Néanmoins, HP 
frappe fort avec cette nouvelle imprimante. Je crois qu'on 
en reparlera, 

Dernière chose: elle ne sera pas disponible avant septembre 
(au moins). 


A bientôt pour un banc d'essai complet : 


Pierre DAVID 





Dans le laboratoire derecherches aux Etats Unis, les chercheurs 
travaillent des années en avance sur les produits. Ilest même certain, 
que beaucoup de produits qui font l'objet de recherche, ne voient jamais 
le jour, pour des raisons techniques ou stratégiques. 


La toute nouvelle imprimante HP2225B a connu sa première élaboration 
à partir de 1978. Un ingénieur de chez HP a travaillé plusieurs années 
sur une idée qui était toute nouvelle: 


Elle consistait à transposer l'encre sur le papier au moyen 
d'un procédé entièrement nouveau de vaporisation et qui présentait 
trois avantages: 


—- l'encre se trouve divisée en particules infimes, 
permettant un dosage extrèmement précis (on peut 
s'attendre à l'avenir à voir venir des modèles 
permettant la quadrichromie) 

— la vaporisation qui dégage le liquide par une pression 
assure le transfert des particules d'encre sur le papier 
dans un silence absolu. (C'est la dilatation qui permet 
la projection de l'encre.) 

- Cette suppressiondela mécanique permet une consomation 
d'énergie qui se résume dans la pratique au seul 
déplacement de la tête d'impression et à la surchauffe 
de quelques décigrammes d'encre pour 1 page, soit 
batterie incorporée qui donnera probablement une 
une autonomie de 150 à 200 pages de listing (format 
21 x 29,7) 


PS: le jet d'encre à déjà été utilisé sur d'autres imprimantes, mais 
celle-ci utilise semble t'il pour la première fois le principe 
d'écrit ci-dessus: le principe de la vaporisation d'encre. 


JACQUES VAUCELLE 


LA PENSEE DU JOUR:| 


Mieux vaut commander un train électrique avec une 41, 
plutôt que de commander une 41 avec un train électriques. 
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Si vous êtes dans la situation dans laquelle j'étais,il y a à 
peine quelques semaines,alors ce banc d'essai s'adresse à vous. En 
effet,si vous êtes dans l'attente de pouvoir exercer vos talents de 
microcodeurs (?),voilà peut-être de quoi vous réjouir. La société 
ERAMCO SYSTEMS a sorti de ses ateliers,il y a quelques mois déjà,un 
MLDL: 1'ERAMCO-MLDIL, remarquable petite bête dans son genre. 

Son aspect physique tout d'abord: c'est une petite (?) boite en 
PVC beige clair de 160x80x54 mm. Ces dimensions peuvent vous paraître 
importantes,compte tenu que ce périphérique n'apporte qu'uniquement 
de la mémoire supplémentaire;mais croyez-moi,elles sont modérées, 
comparées à ceux actuellement vendus sur le marché. 

La liaison avec la 41 se fait par un connecteur enfichable (boitier 
de module de chez HP) et un câble plat de 10 em environ. C'est d'ailleurs 
à mon sens,un des points noirs de ce système:l1a longueur du câble 
s'explique par le fait que le MLDL a été conçu pour poser la Àl dessus, 
mais cela n'est pas toujours pratique,et donne un côté "fils à la patte". 

Venons-en à sa capacité: 24 K de mots ROM et 8 K de mots RAM. 
Voilà de quoidonner envie d'explorer l'espace mémoire de la A1. 

L'accès aux emplacements des EPROMs se fait en dévissant le couvercle 
de dessous(fig. 2),et là,on découvre 12 emplacements pour EPROMs (2 
pour chaque paire d'EPROMs de À} K }).Cela fait le compte:les 2} Kmots 
y sont bien adressables. Les EPROMS sont enfichées sur des supports, 
à vrai dire pas très pratiques à défaire, mais dès deux ou trois 
manipulations de ce genre,on prend vite le coup de main adéquat. 

À la lecture des numéros de pages adressables,on constate qu'il y 
manque la À (port 2-L) et la E (port A-L).C'est plutôt une précaution 
prise,car ces pages sont souvent utilisées,soit par un module genre 
X-FUNCTIONS(page A),soit par le lecteur de cartes(page E),évitant ainsi 
une altération avec une éventuelle EPROM. Chaque paire d'EPROMs peut 
d'ailleurs être valider ou dévalider au gré de l'utilisateur,grâce à 
6 switches placés à proximité des dites EPROMs,à l'arrière du boitier. 

Quant à la RAM,elle est plus souple d'emploi. Une ouverture sur 
le boitier (fig. 1) donne accès à différents switcheS#äont deux 
permettent l'adressage des 8 Kmots RAM,et deux autres,comme pour les 
EPROMs,la validation ou la dévalidation. La RAM peut donc être im- 
plantée à n'importe quelle page,du moins si celle-ci n'est pas déjà 


adressée. 
Es 


FÉBE 1 


Æ 

it 
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Fi 


(4) NILR: En français sn dir commutateur | 


Une pile au lithium permet de conserver le contenu de la RAM, 
lorsque le MLDL n'est pas connecté à la 41. C'est une pile standard 
de chez Radio-Shack,disponible dans la plupart des distributeurs de 
pièces électroniques. Un autre point noir: la pile est soudée,ce qui 
peut poser quelques problèmes pour la changer. 

Avec le MLDL,est fournis une paire d'EPROMs:1'ERAMCO-MLDL (mème 
nom que le MIDL),le système d'exploitation en quelques sortes. Elle 


est orientée principalement vers la gestion de la RAM du MIDL,et 


comporte par conséquent toutes (ou presque) les fonctions utiles 
relatives à ce travail. La plus remarquable de toutes: RAMWR permet 
de lire,d'écrire ou de modifier les mots RAM (ou ROM pour la lecture) 


ERAHCO-HEEL 
RAHNE 
HATORAN 
RFAT 
HFAT 
MOVE 
CEE 
COPYR 
EOHSUS 
REGIRON 
COMPILE 
LOCA 
LRO 
Col 
HECO 
RORCHEE 
RORÈREG 
HHEH 
BISESH 
CAT 

CET 

GE 
THEDH 
RON 
TARETR 
THDIS 


du MEDI. Véritable petit éditeur,très souple et très 
puissant. Avec cette fonction,la programmation en 
microcode devient aussi aisée que sur une calculatrice, 
genre TI 57,voir mème avec plus d'agrément. On dispose 
également de fonctions permettant la gestion du catalo- 
gue (AFAT,DFAT),effacement d'un bloc ou d'une page (CLBL), 
déplacement d'un bloc (MOVE),enregistrement d'un prog. 
utilisateur dans le MLDL (MMTORAM),copie d'une ROM en 
RAM ou sur cassette (COPYR, ‘WROM, 'RROM) et bien d'autres 
encore. À noter une fonction assez originale: COMPILE, 
qui,comme son l'indique,compile tous les GTOs et XEQs 
d'un programme;ce qui permet de gagner du temps à 
l'exécution,surtout lorsqu'il est très long. Donc,un 
ensemble de fonctions bien adapté aux besoins. 

En ce qui concerne le manuel d'utilisation,il est 
en anglais. Une version française sera,certainement 
bientôt,rédigée,donc les non-anglophones pas de panique. 
Dans sa version originale,il n'est pas trop mal fait,ne 
s'égare pas dans les détails,mais malgré cela,on s'en 
sort. 


En conclusion:l1'ERAMCO-MLDL est un système puissant et souple à 
l'emploi,d'une grande capacité mémoire;donc si vous avez 3050 FF (prix 
membres PPC-PC)à investir,n'hésitez pas... 


Daniel JACOB (11) 


Note: pour prendre commande du ERAMCO-MIDL, s'adresser à: 


Philippe GUEZ 

56,rue Jean-Jacques ROUSSEAU 
75001 PARIS 

Tel: (1) 255 67 75 
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- Vues côté pratique de 1'ERAMCO-MLDL - 


Connecteur enfichable + 


câble plat (10 cm environ) lé ivaiidatiou dés à 


RAM (par 4 K 








Adressage des 8 K 
RAM (2x L K ) aux 
pages selectionnées 


(dé )Validation des dif- 


# férentes EPROMs (par 
L K ) 










D. LEE AE] EPROM 2 ADDR. 9 PORT 1-U 
| EPROM 3 ADDR. F PORT &-U 
l Vue de dessus 
D EPROM 4 ADDR. B PORT 2-U (fig 1) 
EPROM 5 ADDR. 8 PORT 1—L 
EPROM 6 ADDR. € PORT 3-L 


Pile du MIDL 





Vue d'en dessou 
couvercle retiré 


(fig. 2) 


ci-contre: adressage des différents 
ports de la 41 


(fige 3) 
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Dir) 
FL 

x 
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Sa 


> 


E=C=f Conversion DEC () HE 


5 
NT PR ee = 
LI 





: se Après X-N (cf n° 13),voici N-X comme promis, ainsi 
5 HD RTE que X-A et A-X. 





PEUT PT PTT PTE PTT ITA TT TA 1 Fr 
Fa Ft Par Pan Pt Pa lag Fa Fun or Pan 






Je Fonction établie par chacune de ces routines: 
C 348 SETREC X-N: transforme un nombre décimal en X en son équivalent 
D NNN (Nombre Non Normalisé) 
ESiF 448 7he8 ER N-X: transforme un NNN en X en son équivalent décimal 
556 RIT Ur 
A X-A: transforme un nombre décimal en X en son équivalent 
398 RSHFE K hexedécimal en alpha (en X,son équivalent NNN) 


HOT 






3E3 JHE EDIF -fé 2 à 
BéE C=8 ALL A-X: transforme un nombre hexadécimal en alpha en son 
138 LI SEX équivalent décimal en X (alpha conservé) 

ë 

Î 


ERA Met pal fi PTT NS 
rt 
Ln 





j Remarque: les adresses indiquées dans les routines 





X-A et A-X seront ,à fortiori,à modifier.Voici à quoi 
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cu 


IC E231 +87 elles correspondent: 
E215: routine X-N (cf listing) 
C16F: routine DECOD de l'ERAMCO (autres pages ou 


autres routines conviennent) 
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EO3C: routine CODE,conception maison (cf n° 12) 
(mème remarque que ci-dessus) 
E245: routine N-X (cf listing) 
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833 B3C 
34 BGE 
E?35 138 Daniel JACOB (11) 
EH 868 138 LEI SÉE e ces 
EP37 366 £s 35Û &= 
E238 BF BE6 COR SE iû6 E-8 . 
E319 382 BCE C=E SÈX 3FG LE £ 
Eeiû BE BEÉ CB SE 343 78 
ES3E BEF 68 C _s 3F 
E33C 230 B6E gl anr 
ESS 8BE 258 122 ! 
L33E 183 E2SE EE 3F 
BGE ERSC 37€ 
GES E2SE 8E 
3EË ERSE 88 
ERSF LE 
ER68 
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E3SE 86C Le 

ES “È 

E388 82 °R° 

E383 BBE °K° 

E3S4 IAE A=B=C26 
E385 376 RH SLCT 
E3SS BFS RESE ER) 
E38? 138 HRIT éfl3 
E358 345 

E385 BSC FORT DEP: 
E3SSR #15 &E ETS 
E3SE Î66 HEC SEK 
E3SC 378 RER 13{c} 
E36E SC RCE 3 
E3SE Îéé ARE SEE 
E38F 136 LDI SÉË 
E3S8 388 

E39i 386 

E3S2 BF 

E393 385 

E39é BB 7RCAN 2373 
E335 838 

E356 

E337 

E358 

E355 

E358 

E3SE 

E3SC 

E35B 

E3SE 

E3SF 
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RCL Non Normalisant 


Lors des manipulations dites synthétiques,vous vous 
êtes sûrement rendu compte que,stocker un NNN posait 
des problèmes au rappel du registre concerné:il était 
normalisé,ou plus exactement standardisé. 

Voici une routine (parmi tant d'autres) en micro-code: 
NRCL qui permet de remédier à cet inconvénient. 

Son mode d'emploi est simple: rentrez en X,le numéro 
âu registre à rappeler,puis NRCL (cf exemple); si le 
numéro du registre est supérieur au SIZE, alors 
affichage de NONEXISTENT 


Daniel JACOB (11) 


Nom de la routine: NRCL 


Initialisation 

Selectionne les registres d'etats 
Lire X dans C 

Sauvegarde X dans L 

Exécute la routine X-N (cf n° 13) 


Copie C dans les digits 2-0 de A (valeur hexa) 
Charge dans C (2-0) l'adresse hexa du premier 
registre de données 

Additionne l'adresse et la valeur hexa dans A (2-0) 
Compare si l'adresse obtenue n'est pas supérieure 

à 1FF 


si inférieure,continuer en E397 
si supérieure ,eafficher NONEXISTENT 


Return 
Selectionne la RAM à partir de l'adresse hexa 


Lire dans C le contenu de ce regitre 
Sauvegarde C dans M 
Selectionne à nouveau les registres d'états 


Echange C avec M 
Ecrire le résultat final dans X 
Return 


Frédéric Vadez 


PPC=PC 79 
2 Rue du Colombier 
94200 Ivry 


Chers amis , 

je vous propose aujourd'hui 4 routines microcodées 
qui complètent la panoplie de fonctions du module 
X=-FONCTIONS , elles ne présentent qu'un seul (petit) 
défaut : elles ne tournent que sur les HP41 CX , 
mais on doit pouvoir les adapter simplement pour les 
HP41 C(V) munies d'un module X-FONCTIONS (il suffit 
de trouver les routines du X-F correspondant au 
X-F 2D de la 41 CX. 


REM: la routine "KREG?7" est appelée par "CRFIK", 
"SAVEK'" et "GETK" , j'utilise toujours la page F 
pour la RAM de mon MLDL aussi feis-je appel aux 
adressages directs pour les sous-progremmes , mais 
vous pouvez parfaitement utiliser des branchements 
port-Gépendant (cf JPC V2N1 P19). 


EMPLOI 3 
;vous désirez sauvez vos assignations 
- entrez en ALPHA le nom du fichier devant contenir 
les assignations 
- éxécutez "CRFIK" , cette fonction crée un fichier 
DATA possèdant exactement le nombre de registres 
nécessaires ( c'est la traduction en microcode de la 
séquence : "KREG?",2,"+",MCRFLD" ) 
- éxécutez "SAVEK",vous n'aurez pas le temps 
d'être étonné par la rapidité de l'éxécution de cette 
fonction ! 


vous désirez rappeler des assignations stockées 
dans un fichier 

- entrez en ALPHA le nom du fichier 

- positionnez le pointeur sur ce fichier , par 
exemple en effectuant O,"SEEKPTA" 

- effacez les précédentes assignations s'il y en a. 
(vous pouvez ne pas les effacer ça marchera quand même 
mais vous perdrez es registres) 

_- effectuez "GETK" , et c'est fini. 


L;Vous voulez savoir combien Ge registres mobilisent 
vos assignations 
- effectuez "KREG?" , vous obtenez ce nombre en X. 


11 va sans dire que les alarmes ne sont pas détruites 
par "GETK" 


Messages d'erreur: 
"NO KEYS'" pas d'assignaÿions à stocker 
"NO ROOM" pas assez de registres,dens le fichier 
pour "SAVEK",ou bien en mémoire pour 
NGETK", 
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Voici quelques routines interessantes du XF-2D de 
la HP41-CX: 


- 317D éxécute BCDBIN sur A(2:0) rend le résultat 
en € 

-  315F id mais envoie le résultat en X 

- 3A22 rend en N(2:0) la taille du fichier dont 
le nom est en ALPHA 

- 34A4 lit en X le NOMBRE XXX,YYYZZZ et rend en 
N 000000AA1ABBBCCC où AAA et BBB sont les aüresses 
des regitres R. et R s EEC est la traduction 
en hexe de BALE JSF 

- 3C8F rend en N le registre d'état du fichier 
pointé (de type DATA) avec en N (12:10) l‘aûresse dé 


ce registre : N= TRRROOOOPPPLLL 


type adresse pointeur longueur 
— 348F rend en A(2:0) l'adresse du registre 
défini par le pointeur du registre d'état. 
-  3C92 id 3C8F pour un D ti M 20) : 
- SEC sélectionne la page O (TM 2C ä 
A : es adresses 
— 5SFC9 sélectionne la page 1 (TM XC) 6000 à SFFF 


- 3F83 interprète les mots suivants comme un 
message d'erreur à envoyer à l'afficheur 
terminer ensuite par: 

- 3F76 qui affiche ERR derrière le message 

- 5F7C qui n'affiche rien derrière le message. 


Voilà , c'est tout pour aujourd'hui, j'espère que vous a 
apprecierez la puissance et la souplesse de "SAVEK" 

et "GETK" qui montrent bien l'incroyable efficacité 

du microcode. 


PS: étant spécialiste dans les petits bricolages 
sur HP41 , je peux effectuer des mariages de modules 
ou des intégreations. 

VOICI MES TARIFS : 
Mariages de module 100 F pour un module double 
Intégrations 200 F pour le premier module 
150 F pour les suivants 


je peux intégrer jusqu'à 6 ou 7 modules dans une 
HP 41 selon le modêle. 
les bricolages sont garantis un an sauf en cas de 
choc trop fort (ex chute de plus de 1,5m sur un sol 
dur ou en cas d'ouverture inconsidérée du boitier 
pour plus de précision ; appelez moi au 670 05 96 
le week-end ou le soir entre 9 ET 10 heures. 
REM : je peux aussi accélérer votre machine de sorte 
as les périphériques restent compatibles ceci pour 


e 
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ÉCE 
£: 
86: 


73. 
£t: 


Si 


£a: 
24: 
36: 
31: 
32: 
31: FEBC 
: FERS 
35: 
: FEGS CORPREE 
: FESE LE 

8: FESS EH 

: FE77 HDI 

: FÉES ETIRSE 
: FéBé HAT 


ENTER EEON 





£ COLSRGE 
ESS 
Fr REL 


ÊBE 4 


S ECDBIX 
i 


£: Féfl 4H 

: F4BS HSTO 

: F4BC HRCL 

: F4SE COHE 

: FÈSE HECONE 
: F36B FURFCR 


2: FSES FAT 

: F281 HAE 

: FFSF HBRET 

: FFEL TPE 

: FIF3 KCAT 

: FÉCT aWIEE 

: FEFE TFK 

: FÉHE EDR-REC 
: FF58 REG-RÜE 
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5 -ALEPRO IH 


Aujourd'hui, deux autres éproms que vous: pouvez consulter au sein 


du club, 
—MLEPROM 1H nom de l'eprom, une creation de Stéphane Barizien 


et vendue par Etienne Poupée de la SCIP; 


BCDBIN décimal codé binaire; 

GOLONGA éxécution d'une routine microcode dont l'adresse 
est donnée; 

RXR rotation de X à droite de 1 digit; 

RXL rotation à gauche de 1 digit; 

X+Y somme binaire de X et Y bit par bit; 

X+X double binaire bit par bit; 

NSTO STO relatif non normalisant; 

NRCL RCL relatif non normalisant; 

CODE code un nombre hexadécimal donné en alfña en NNN; 

DECODE opération inverse de code; 

PURFCN supprime dans le CAT la fonction donnée en alpha; 

FAT remplace dans le CAT le premier FFF par l'adresse; 

NAME écrit dans le MLDL les caractères du nom; 

NAME ? affiche le nom d'une routine dont l'adresse est donnée; 

P8 langage utilisateur, permet de calculer l'adresse 


hexadécimalecorrespondant à une routine du VASM; 


à BERGER 


HETER 


5 HERRIE 
F FELERG 


HIT 
COPFRDE 
HHEKO 
RCRROÉ 
RESPE 


F E-f 


8F H-1 


FCER 


ERTRY? 
POÉE 
ÉTEPORE 


XCAT : démarre un CAT 2 d'un périphérique donné connaissant 
son numéro de XROM; 

aVIEW identique à AVIEW sans impression ni arrêt 

TFX : inverse l'état d'un flag dont le numéro (1 à 55) est 
spécifié en X; 


FE SUB 







ER BSER 
BR CORPIL 
5 HEBCAT 


F1 
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ROM-REG écrit le MLDL dans les registres de données; 

REG-ROM opération inverse de ROM-REG; 

READEM nécessite l'unité de cassette, identique à READA, 
mais opère sur la mémoire étendue; 

WRTEM opération inverse de READEM; 

NEWDIR nécessite l'unité de cassette, démarre un DIR au 
fichier spécifié; 

FLLENG nécessite l'unité de cassette, rappelle dans la pile 
la longueur du fichier spécifié; 

INIT réinitialise le MLDL; 

COPYROM copie une page de la 41 dans le MLDL; 

MNEMO cherche la mnémonique d'un mot ROM donné; 

DCDROM désassemble une ROM; 

HEXPR en attente pour une introduction hexadécimale; 

D-H conversion décimale hexadécimale; 

H-D opération inverse de D-H; 

ENTRY? donne l'adresse d'entrée d'une fonction; 

POKE ecrit le mot à l'adresse donnée dans le MLDL; 

XYZPOKE écrit un mot dans le MLDL; 

SUB$ 

COITPARE compare 2 blocs d'adresses données; 

LB génère en mode programme toutes les instructions 
synthétiques voulues; 

NNN mode programme, a le même effet que ALPHA ‘chaine!, 
RCL M; 

/MOD : modulo évolué, écrit: en Y INT (y/x) 

X y MOD x 
L x 
XYZASN programme d'assignation de touches; 
NOT complément à F sur les 56 bits de X; 


Ms dE Er 


mi Fan mes Cie 





33: 


r- 


EL 
Den] 


Eat El tee 


ut ut ut nt Ent Cf Lu 


Cu ul ET LT ie 










ÉCDETE 
: CTOROA 
se 





us 
LT 


Eat Fan ten ET CU UT pese TT HA ET 





Æn CT 


MONET Mt 
ETa Put Et 

Es C1 SE 

Eu 

a Et 

Es EF 

Li] 

FT 


Mae pe pete ponte 


Sr MN M At 
Fa Pt Pt 
ET 
7 
rt CE TI 


ÊTa CR a nn 
Le € 


RO 
ATROR 
EORSREL 
REGIRER 
LASTRES 


MI OM M 
“I 


LE 
et ul Pa Ps Pit Pit 
cl Pa ET EI HS 
LUN ET 0 


A 


: 839F 3-HEC 
: S3BE RORPR 
: SSI 856 
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+ TOI 

FOREURS 
UPDFATE 
BE Fée 
EURE 


= 


J6RA 


Süs2 








USER 


COMPILE 
NEWCAT 


BINBCD 
KEY 


MLIADDR 
RSUM 


MLDL OS 1A 


BCDBIN 
GTOROM 
RXR 
RXL 
X+Y 
SXL 
NSTO 
NRCL 
CODE 
DECODE 
L&8 

U2 
SETROM 
SETREG 
DIS 
XCAT 


X)ROM 
X/ROM 
ROM)REG 
REG) ROM 
LASTREG 
3-DEC 
ROM)X 
X)A 
ROME 
CPROM 
MNEM 
DISASM 
PROMT 


ÉRAM 
LOAD 
PMCD 
WRTROMI 
WRTROM2 
RXL3 


COMP 
GTO2 


transfère le contenu d'un programme courant dans 

le MLDL; 

compile tout programme utilisateur dans la ram du 41; 

CAT n particulier: NEWCAT @ XCAT NEWCAT 5 = ALMCAT 
NEWCAT 1 CAT 1 NEWCAT 6 DIR 
NEWCAT 2 = CAT 2 NEWCAT 7 periph. 
NEWCAT 3 = CAT 3 NEWCAT 8 = ASN 
NEWCAT 4 = EMDIR 

opération inverse de BCDBIN; 

s'utilise comme GETKEY, sort le code de la touche 

pressée, la touche peut être shiftée ou non; 


WI 


Il 


calcule et contrôle le checksum du MLDL 


Cette deuxième ROM a été programmée par Stéphane 
Barizien et Didier Jehl, c'est un operating system 
pour le MLDL, et peut aussi être utilisée pour 
programmer des éproms si vous possédez le bruleur 
qui se branche sur le MLDL; 

decimal codé binaire; 

permet de se brancher à une adresse en ROM; 
rotation de X a droite de Idigit; 

rotation à gauche de 1 digit; 

somme binaire de X et Y bit par bit; 

perd le 1° bit le plus à gauche; 

STO relatif non normalisant; 

RCL relatif non normalisant; 

code un hexadécimal donné en alpha en NNN 
operation inverse de code; 

calcule l'adresse de l'éprom LB; 

calcule l'adresse de l'éprom U2; 


désassembleur ; 

donne le catalogue d'un périphérique selon son 
numéro de XROM; 

écrit X dans la RAM du MLDL; 


écrit la RAM du MLDL dans les registres de données; 
opération inverse de ROM)REG; 


écrit la RAM du MLDL dans le registre X; 
même que XTOA; 
efface la RAM du MLDL; 


recherche la mnémonique d'un mot ROM donné; 
désassembleur ; 

attend une entrée hexadécimale, aprés réassignation du 
clavier; 

efface la RAM du MLDL par blocs; 

langage-.utilisateur, charge les mots dans le MLDI,; 
langage utilisateur, déasembleur; 


rotation de X à droite de trois digits; 


Ë 


HG 14 Barre ae 


ROMSUMX 


UPDFAT2 

Y()Z : échange le contenu des registres Y et Z; 

BURN : langage utilisateur, permet de bruler des éproms; 
COMPARE : langage utilisateur, compare 2 pages de 4k; ! 
COPYROM : copie une ROM dans le MLDL; | 

HDT : langage utilisateur, 


Certaines fonctions non pas leur explication, car n'ayant pas 
le mode d'emploi de cette éprom, je n'ai pu tout trouvé. 
Merci pour ceux qui les connaissent de me les envoyer. 


PHILIPPE 


"REVEIL DIFFICILE" | 


Ma HP 41 CV est équipée en permanence d'un module XFUNCTIONS, 
d'un XMEMORY, d'un module HORLOGE et d'un FINANCIAL 1. 


J'utilise accessoirement une unité de cassette et une imprimante, 
toutes deux connectées grâce à la boule HPIL. 


Depuis quelques temps, ma 41 refuse parfois de s'allumer. La 
périodicité de ce refus est très variable, et peut aller de quelques 


heures à plusieurs semaines. Parfois, après quelques essais infructueux, 
la machine consent finalement à s'allumer. D'autre fois, il est 

nécessaire de retirer les piles pendant quelques secondes pour pouvoir 
mettre en marche. Dans ce cas, un affichage bizarre apparait sur la partie 
gauche de l'écran, même si la machine est éteinte. 


s 


Dans tous les cas, le module horloge est réinitialisé à zéro, 
comme s'il avait été débranché. Parfois, l'opération se termine par un 
MEMORY LOST, ce qui est toujours désagréable. 


À certains moments, j'ai remarqué qu'en mode USER, une fonction 
mettait jusqu'à 8 secondes avant de s'exécuter, mais je ne sais pas 
s'il y a un rapport. 

Quelqu'un peut-il m'éclairer? 

Pour la petite histoire, j'ai récemment retourner ma machine au 
SAV de HP, qui me l'a gardé 6 semaines, pour me la rendre dans le même 
état, après m'avoir soulagé de 678,39 F. 


DENIS CASTELAIN. 
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PROGRAMMATION D'EPROMS 


Voici un sujet qui interressera les gens qui désirent programmer leur 
propres éproms. 


Tous ceux qui ont un lecteur d'éprom, ont du remarquer que,pour faire 4k 
de programme (soit une page d'adresse) en microcodes, il leur fallait 
2 éproms (une 2716 et une 2732). Malgré que la 2732 fait 4k, la 2716 est 
nécessaire, car les mots ROM sont codés sur 10bits au lieu de 8 comme la 
plupart des microprocesseurs 
ATTENTION: ne confondez pas:les mots ROM sont codés sur 10 bits, tandis 
que les mot RAM, sont codés sur 8 bits. 


Les boîtes d'éproms utilisent donc des séries d'au moins deux éproms: 


— Une éprom 2732 appelée L8, contenant les 8bits finaux 
du mot 

— Une éprom 2716 appelée U2, contenant les 2 premiers bits 
du mot. 
chaque mot dans l'éprom U2 stocke le ''sommet'' du mot (les 
2 premiers bits)de 4 mots ROM consécutifs. Les bits sont 
écrit par pair comme indiqué ci dessous. 


10 BITS MOT ROM 


EPROM U EPROM L | 
1 6-5 4 SEL 0 6 3 À ; 
1 0 Q £ 






La routine T55 ci-aprés 
a été faite par 

Lynn A Wilkins et 

nous l'avons prise 
comme exemple car 

elle est trés courte. 


(a) 








Ce] 


Éd 
0 + 


Ts TT fu 
Cr) 
ed ER TT ET fe UT ET 


nf 
T1 
ET 
Lu 

COR RE A | 
Et 
Lt 





AT pute NON buste 


Fe 


RER 14{ai 
8 EST &F 
HRIT iéto) 
RTR 


bhe&h On S 8 & © H H|o 
Dee 
De] 


SGH GHhGSrRGREHEIS 


1 6 
0 1 
ÿ 1 
o ÿ 
go @ 
L 4 
o 9 
1.4 
g à 
0 ÿ 
6 ÿ 
0 ÿ 
ÿ G 


Srbhbhrhoerrresrs 





FTI Zi 
Et UN 


pour calculer l'adresse dans l'éprom U, vous devez écrire l'adresse du mot 
ROM en binaire soit: 


7F61=@1111111#11%%60%1, 


on élimine les 2 bits les plus à droite de l'adresse. 


la valeur à gauche (binaire) est l'adresse de l'eprom U, la valeur à droite est 
la parité: 


9 9 a la parité 91,09 
ÿ 1 a la parité 93,92 
1 9 a la parité 95,94 
1 1 à la parité 97,96 


Le mot ROM à l'adresse 7F61 est stocké à l'adresse 7F61 dans l'éprom L 
et à l'adresse 3D8 dans l'éprom U positionnée en cases 3 et 2. 


PHILIPPE 
HD ié Pac 


He 
Fr 
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COPIE DES 8 DERNIERS BITS D'UN MOT ROM EN ALPHA 


Aujourd'hui, nous allons voir la façon de copier les huit derniers 
bits d'un mot ROM, cela peut aider certains membres qui désirent commencer 
à faire du microcode mais sans MLDL. Nous vous signalons que celà est 
parfaitement possible, mais le seul problême, c'est un travail de titan 
(pas la nouvelle machine). 


Pour copier la ROM dans le registre alpha, vous devez me suivre pas à pas. 


Tout d'abord, vous devez assigner certaines fonctions synthétiques: 
STO b, RCL M (ou RCL N), le BG (ouPRINTER, ou BJ, ou CRIC, ...), puis un 
programme DECODE (ou NH, ...) 


Puis faire un STO b quand le pointeur programme est en ROM, ou écrivons 
en X un NNN. 


Aller dans un programme utilisateur en ROM (GTO prgm) 
faire STO b 

PRINTER 

RCL M 

DECODE 


Le NNN, représente l'adresse en ROM, sans oublier que: 


0 TRE PE DD RP D D CE mm D 












a) ROM 9 = YGnnn 
b) ROM 1 = Iinnn système opératoire 
c) ROM 2 = ?2nnn 
d) ROM 3 = 3nnn utilisé par la CX 
e) ROM 4 = Annn utilisé par la ROM diagnostique 
f) ROM 5 = 5nnn utilisé par le TIME 
USER KEVS: &g) ROM 6 = 6nnn utilisé par l'imprimante 
ii -FRIHTEE- h) ROM 7 = 7nnn utilisé 
15 YEOK 85.6 i) ROM 8 = 8nnn port 14! 
13 CO j) ROM 9 = 9nnn port 1B 
{4 DÉCORÉ k) ROM 10= Annn port 24 
3é SEC 81,53 1) ROM 11= Bnnn port 2B 
m) ROM 12= Cnnn port 
n) ROM 13= Dnnn port 
Ë o) ROM 14= Ennn port 
Ë p) ROM Fnnn port 





I -. 


Bravo 


II -. 


Et UN 


SIMULATION D'ECRAN GRAPHIQUE SUR IMPRIMANTE 
Lausanne, vous êtes sur la bonne voie!!! 
XEQS 


éXEQcute Synthétique pour le PPCPC. 


| SIMULATION D'ECRAN GRAPHIQUE SUR IMPRIMANTE | 


Le but de cet ensemble de programmes est de simuler un écran 
graphique sur la memoire des modules Xfunction & Xmemory de la 
HP-41. Cet écran est ensuite copié sur l'imprimante HP82162A. 


Matériel nécessaire : HP-41C/V 
Imprimante HP-IL HP82162A 
Module Xfunction 
1 Module Xmemory 
Si possible des batteries rechargeables... 


La première partie de cet article est consacrée à la description des 
fonctions formant le logiciel de création, d'utilisation et de copie 
de l'écran graphique, Aucune de ces fonctions n'utilise de registres 
de données, ceux-ci étant réservés aux programmes d'application. 


La seconde partie présente un exemple de programme d'application. 
Elle a pour but d'illustrer l'utillisation des fonctions décrites et 
non de présenter des programmes sophistiqués, la réalisation de ceux 
-ci étant laissée à votre initiative. 


MODES DE FONCTIONNEMENTS 


L'écran a une dimension de 315 points sur l'axe des X et de 84 points 
sur l'axe des Ÿ, ce qui permet une copie en simple ou en double lar- 

geur. Selon le sens de déroulement du papier, l'origine est en haut à 
gauche et l'axe des X vertical. 


Graduation des axes 

En mode absolu, X va de O à 314 et Y de O0 à 83. 

En mode utilisateur, les valeurs minimales et maximales des axes sont 
initialisées par la fonction DWINDO ce qui permet d'adapter leur gra- 
duation aux résultats. ( Exemple dans le programme PRM ) 


Adressage relatif 

Il est aussi possible, indépendamment de la graduation des axes, de 
spécifier un point relativement à une origine. Chaque fois qu'un 
point est allumé,éteint,inversé ou testé, le point en question de- 
vient la nouvelle origine; sauf si l1' IB 18 est armé. L'origine peut 
se situer en dehors de l'écran. 


Dépassements d'écran 

Normalement, les point hors de l'écran sont ignorés ( L'origine étant 
tout de même mise à jour ), mais il est possible soit de les repor- 
ter de l'autre côté de l'écran, soit de “rebondir"; les limites de 
celui-ci se comportants comune des axes de symétrie, Les dépassements 
sont contrôlés par les indicateurs binaires 8 et 9. 


Utilisation des indicateurs binaires ( Si armés ) 


IB 6 Utilisé par SEG 

1B 7 Utilisé par SEG 

1B 8 Les points sont reportés si dépassement 

IB 9 Les points sont réfléchis sur les bords si CF 8 

1B 10 Coordonnées absolues ( Gain de temps ) 

IB 12 à 17  Modifiés par certaines fonctions. ES 
1B 18 Pas de nouvelle origine spécifiée. HO jé PACE 34 


1B 19 XYABS non suivi de DEPXY 


Convention d'écriture : FUN A;B signifie exécuter FUN après avoir 
mis À en X et B en ÿï. 


DESCRIPTION DES FONCTIONS DISPONIBLES 


Initialisation et effaçage de l'écran. 

INITT 

Le fichier GRAPH est crée s'il n'existe pas, ( 362 registres }), 
L'écran est effacé, l'origine mise en (0;0) et l'adressage en mode 
absolu. ( L'indicateur binaire 10 est armé. ) 


Copie de l'écran sur l'imprimante. 

COPYDL ou COPYSL ( Double ou simple largeur respectivement ) 

Les 29 lignes sont copiées sur l'imprimante. Celle-ci doit être en 
mode échappement. Le cas échéant, l'éteindre et la rallumer. Le gra- 
phique est automatiquement centré, 


Manipulations sur les points de l'écran. 


SETP X3:Y Allume le point (X;Y). 

CLRP X;Y Eteint le point (X;Y). 

INVP X;Y Inverse l'état du point (X:;Y). 

TESTP X;Y Teste l'état du point (X;Y). Résultat du test : 


1B 12 armé si le point est allumé, IB 13 armé si le point n'existe 
pas. ( Hors écran où entre les lignes d'impression. }) 

Pour ces 4 fonctions, X et Y devient la nouvelle origine. 
Sous-programmes utilisés : XYABS et DEPXY 


Fonctions relatives aux coordonnées utilisateur. 


DWINDO Ymax;Ymin;Xmax;Xmin Entre en mode utilisateur selon 

les données de la pile et désarme l'indicateur binaire 10. 

DW-ABS Retour au mode absolu et SF 10. Utilise INITT 

STODW Met en réserve les coordonnées utilisateur pour une 
utilisation future, Ne change pas le mode d'adressage. 

RCLDW Valide les coordonnées utilisateur mise en réserve par 
STODW. Désarme l'indicateur binaire 10. 

DWEXC Echange entre les coordonnées utilisateur actuelles et 


celles mises en réserve. 


Coordonnées relatives à l'origine. 

REL X:Y Transforme les coordonnées relatives entrées en coor- 
données non relatives, Utilisation : Placer REL à la 
ligne précédant SETP ou toute autre fonction de traça- 
ge pour que l'adressage de cette fonction soit relatif. 


Fonctions de contrôle des coordonnées. 


XABS X Donne la coordonnée absolue de X 

YABS Ÿ Donne la coordonnée absolue de YŸ 

Ces deux fonctions arment 1'IB 14 si le point est hors de l'écran. 

XYABS X;Y Donne les coordonnées absolues du point (X;Y) et exé- 
cute automatiquement DEPXY si SF 19, 

DEPXY X:Y Corrige les dépassements d'écran selon les indicateurs 


binaires 8 et 9. ( Voir plus haut, ) Si ni l'un ni l'au- 
tre est armé, SF 14 en cas de dépassement. 


Rappel des coordonnées de l'origine actuelle. 
GETOR Rappelle en X et Y les coordonnées de l'origine. 


Traçage de segments de droites 
SEG X3;Y Trace un segment de droite de l'origine au point spéci- 
fié, qui devient à son tour la nouvelle origine. 


Traçage d'axes. 
X-AXIS Y Trace l'axe des X à la hauteur Y spécifiée. 
Y-AXIS X Trace l'axe des Y à la hauteur X spécifiée. 


Niveaux de sous programmes utilisés ( Y compris l'appel ) 
- 2 pour YABS et Y-AXIS 

- 3 pour SETP, CLRP, INVP, TESTP et X-AXIS 

- k pour SEG 

- 1 pour toutes les autres fonctions. 


Codes des chaines de caractères synthétiques 
COPYDL et COPYSL : - Ligne 2: 27;:38;107;49;83 
- Ligne 5: 27;38;107;48;83 


- Ligne 17: 27:338:108;50;74;27;lh2;98;56;52;71 
- Ligne 28: 13 
INITT - Ligne 9: 128;128;128;128;128;128;128 


EXEMPLE DE PROGRAMME D'APPLICATION 


Ce programme trace le graphe d'une équation paramétrique connue 
sous le nom de "mouche" : x = sin(2t) # ( cos(3t) + 2.5 ) 
y = 2 cos(3t) 
t varie de -3.2 à 3.2 par pas de .005 
Mode d'emploi : - S'assurer que l'imprimante est éteinte. 
- Initialiser l'écran par XEQ “INITT" 
- Exécuter le programme par XEQ "“PRM" 
- Faire autre chose car l'exécution prend plu- 
sieurs heures. 
- Copier l'écran par XEQ "COPYDL" 
Il n'y a aucun risque : le programme teste les batteries de 
même que la fonction SEG, non utilisée ici. 


A. ROSSET 


CHERS AMIS, 


Ce programme de ‘SIMULATION D'ECRAN GRAPHIQUE SUR IMPRIMANTE'' a été 
tiré du journal de Lausanne que nous recevons désormais trés régulierement. 
C'est un journal de 30 pages dans le format A4 non réduit et tiré sur 
HP75C et imprimante 80colonnes. Trés bonne présentation et articles fort 
intéressants. 


Pour tous renseignements, écrire à: 
PHILIPPE ROMASCANO 
CLUB P.P.C: — EL; 
Case Postale 79 
1000 Lausanne 24 
SUISSE 
PS: un bulletin d'inscription est joint à la fin de l'article. 
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PAGE 31, dans le'"'dernière minute", il fallait lire "train 
électrique" à 1a place de "lecteur de disquettes" ;bien sûr il 
n'utilise pas les ordres standarts de la cassette, mais le 
module 1/0. Les prix sont également différents; et ce n'est 
pas Frédéric POUPON qui l'a interfacé, mais Jean-Claude BECKER 

À ces quelques détails près, tout le reste de l'article 


est rigoureusement exact 
Vive JPC, le journal le plus en avant de l'actualité ! 


Jipécémeht vôtre: 
Un amoureux de la vérité: 


P14389 


no té PAGE 31 


Programme ‘“XEQS" 


L'objet de ce programme est de pouvoir éxécuter 
directement une fonction (synthétique ou non) au 
clavier, sans avoir à la programmer ou l'assigner. 
L'introduction de cette fonction sera réalisée par 
l'entrée de ses codes décimaux dans la pile. 


I1 faut impérativement un module XFonctions, 
Par convention, il1 faut également un fichier nommé 
"4", de longueur 2 registres, de type Données, et en 
tête de la mémoire étendue (c'est à dire qui apparaîsse 
en premier lors d'un EMDIR). 


Du fait de sa structure non optimisée, il est 
possible de rentrer des fonctions de plus de 2 
caractères, jusqu'à 6 octets. 


L'idée est d'exploiter l'équivalence données- 
programmes dans la mémoire de la 41. On stocke quelques 
octets bien choisis à un endroit bien précis de la 
mémoire, puis où place le pointeur programme à cet 
endroit: ces octets sont alors devenus lignes de 
programme ! 


"XEQS" doit travailler "proprement", c'est à dire 
qu'il doit laisser le moins de choses transformées 
après éxécution. De ce coté là, il laisse 2 registres 
de la pile intacts, et le registre Alpha est conservé 
(en fait, il est sauvegardé dans les mémoires #1 à g4 
avant l'éxécution de la fonction). 


Celle-ci est éxécutée dans les 2 registres du 
fichier standard d'en-tête. J'ai préféré cet endroit 
plutôt que les registres Alpha, car toute éxécution 
de RCL M ou STO N, par exemple, serait faussée. 


L'éxécution est assez simple: par exemple RCL M: 
144, ENTER , 117, XEQ "XEQS" 
Ou aussi BEEP BEKP (2 fonctions d'un seul octet): 
134, ENTERf , XEQ "XEQS", et écoutez. 


Les codes décimaux des chaînes de caractères sont: 
ligne 11: 131, 116, 116 
ligne 47: 127, 116, 296, 124 
ligne 24: 19ÿ 


À Bientôt 
Pierre DAVID 


Programme "XEQS": analyse 
Ro 


Lignes #2 à 98: Sauvegarde du régistre Alpha dans les 


AieLBL “REQS" mémoires ÿ1 à @4. Il n'y a pas normalisation des registres 
82 ASTO 8 M, N, O et P, car ils sont sauvés sous forme de chaînes de 
93 ASHF caractères. Attention toutefois aux 4 derniers octets de P 
84 ASTO 82 qui sont perdus. 
85 ASHF 
86 ASTO 83 Lignes 99 et 1g: On vide le fichier "£", et en même temps, 
97 ASHF on teste sa présence en mémoire: "FL NOT FOUND" sinon. 
. . 84 Lignes 11 à 17: Constitution des lignes de programme qui 
CO UF vont éxécuter. la fonction dans le fichier "#",. 
jt “tt ENTERt Voici la partie susdite. 

ières lignes permettent de recopier 
12 XOY pt Lee # pret or rr P 
(3 YTOP L le contenu du registre b (pointeur programme) 
14 RIN a dans Z et T. Il faut le recopier dans Z; car 
{5 XTUA pt à la suite d'un RCL, ou de toute opération 
16 RDH LE b faisant monter la pile, on ne le retrouverait 
17 “Eté pes dans T. 
13 REL À La fonction est symbolisée par "æxxx" 
13 SAVER Lignes 18 à 21: Cette partie "autoprogrammée" occupe 2 
28 REL T registres. On recopie d'abord N, puis M. De par la structure 
21 SAYEX du registre Alpha, on aura 6 octets nuls à éxrécuter (registre 
Le N incomplet). 
4 Lignes 22 et 23: on restaure la pile. R/ est plus rapide à 
25 REL T l'éxécution que RDN. Les contenus initiaux de Z et T seront 
24 CLA placés en X et Y. (°) 


27 ARCL 41 


32 ARCL 82 Lignes 24 et 25: On place l'adresse (199 en décimal) à 


59 ARCL 83 placer dans le registre b, dans X. 

3h ARCL 84 Lignes 26 à 3: on restaure le registre Alpha. 

31 242 b 

32 ci Ligne-3l: on transfère l''éxécution dans le fichier "£n,. 
3 END Ligne 32 à 33: l'éxécution reprend ici après le X<>b 


de la partie "autoprogrammée". On remet la pile dans 
l'état initial, et on arrete. 


(o) sauf si on éxécute une fonction du type RCL, qui modifie 
l'état de la piles bien sûr ! 

Les 2 registres Z et T sont conservés en Y et Z respectivement. 
Dans tous les cas, LASTx est conservé. 


A PENSEE DU JOUR: 


Mieux vaut commander un train électrique avec une 4i, 
plutôt que de commander une glace vanille-tomate avec une 41..: 











GARÇON | 
Une 41 eh une 


glace vanille-tomate 
et bien Fraîches ("1 
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III -. 
IV -. 


LA QUETE DES FLAGS SUR HP 71B 
CALCULS SUR LES FRACTIONS POUR HP71B 
COURSE DE VOITURE POUR HP 71B 

ASTTIF AU BANC D'ESSAI DU HP 71B 


Le programme sur les fractions est adaptable sur HP75. L'étude de ce 


programme est conseillé à tous les débutants et programmeurs avertis. 
En effet c'est un programme clair, structuré et donc, facile à lire 


et à comprendre. 


En dernière minute, nous apprenons que Pierre David à établi le nouveau 


record, pour la course de voiture, au niveau difficile à 13,99 secondes. 


A VOUS DE LE BATTRE!!! 


Le meilleur score sera publié dans JEPC. 


La quête des Flags, sur HP 71B 


Je partis, un beau dimanche de printemps, armé de mon seul 
HP 71 et de mon courage, dans la longue quête de l'impossible, qui 
comme chacun sait, n'est pas PPC. 
Mon but avoué était, ce matin là, de faire mentir le manuel 
du Titan: on peut modifier les indicateurs binaires (flags)! 
Je décidais donc, intelligement, de m'aider d'un petit programme 
qui m'épargnerait l'examen manuel de tout le million de demi-octets 
que ce monstre peut adresser... 
19 INPUT ‘Adresse ? °,STR#$(G):R#& ! ENTRER H SIELLE EST EN HEXA 
20 IF R$C1,1]1="H° THEN A=HTD(R#E21)-1 ELSE A=VAL (RS) —1 
30 SFLAG 0,1,2,3,4 
40 A=A+i ! A=ADRESSE EN DECIMAL 
JO IF FEEKS(DTH#(@).1)<2"F" THEN 40 
60 DISF DTH${A) ! ON AFFICHE L°ADRESSE 
70 RESET ! ON DESARME LES FLAGS 
80 IF PEEKS#(DTH#(A),1)<770° THEN 30 
90 BEEF INF,INF ! ON À TROUVE ... 


Après avoir astucieusement évité toute la ROM, tapie dans les 
adresses 99990 à 1FFFF , Titan a sonné pour Z2E34D. Victoire ? 
Hélas non. Cette maléfique machine m'avait encore joué un tour: 
2E34D est une adresse comprise dans la mémoire d'écran. C'est 
l'adresse des indicateurs 1, 2, 3 et 4, mais sur les afficheurs. 
POKE '2E34D','F' ne donne absolument rien, vous pouvez me croire ! 
Alors, j'ai repris ma longue route vers la connaissance 
universelle. Cette infâme bète m'a alors craché à la face, en 
riant comme pour me narguer, "2F6E9" ! 
Eh oui, c'est bien ça. J'avais enfin trouvé le Graal 
J'ai résumé mes longues heures de recherches dans le tableau ci- 
dessous: 


adresse flags adresse flags 
2F6D9 -]/ 4 2F6E9 0/ 3 
2F6DA -5/ -8 2F6EA 4/ 7 
2F6DB -9/-12 2F6EB 8/11 
2F6DC -13/-16 2F6EC 12/15 
2F6DD -17/-20 2F6ED 16/19 
2F6DE -21/-24 2F6EE 20/23 
2F6DF -25/-28 2F6EF 24/27 
2F6F0 -29/-32 2F6F0 28/31 
2F6EL _-33/-36 2F6F1 32/35 
2F6E2 —37/-40 2F6F2 36/39 
2F6E3 -41/-44 2F6F3 40/43 
2F6E4 -45/-48 2F6F4 44/47 
2F6E5 -49/-52 2F6F5 48/51 
2F6E6 -53/-56 2F6F6 52/55 
2F6E7 -57/-60 2F6F7 56/59 
2F6E8 -61/-64 2F6F8 60/63 


Hélas, je n'étais pas au bout de mes peines: j'ai voulu défier 
Titan. L'indicateur -57 est le voyant AC, et le -60 est le voyant 
((-)), tous deux inaccessibles à l'utilisateur... 

Mon sang de chevalier synthétiseur de programmes sur 41 n'a fait 
qu'un tour. Pourquoi ne pas mettre "F" à l'adresse 2F6E7 ? Comme 
ça, pour voir ? Eh bien, j'ai vu. 
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Vous me croirez si vous voulez, mais ces voyants se sont allumés. 
Ainsi d'ailleurs que d'autres zones sur l'afficheur. Dans l'argot 
technique, on appelle ça un "Crash". Le tout s'est soldé par un 
“Memory Lost" (involontaire, hélas), dans la plus pure tradition 
41 Ciste. 

Vous vous rappelez ce que j'ai écrit le mois demier ? on peut 
protéger certains fichiers du Memory Lost en tapant FREEPORT. 

Le Memory Lost dont il était question est le Memory Lost 

provoqué par l'utilisateur, c'est à dire la 3° initialisation. 
Dans le cas qui nous préoccupe, ce n'était pas un Memory Lost 
provoqué par l'utilisateur ! 

Cette Saleté de (... Censuré ...) de bestiole m'a effacé une 
dizaine de Kilo-octets de programmes, dont aucun n'était sauvegardé 
sur cartes ou cassettes, et surtout certains n'étaient pas 

encore achevés, donc non listés ... 

Je vous laisse deviner la sensation de joie qui m'a envahi 


alors (grrrr) ÿ 
La morale de cette histoire est qu'il ne faut jamais chatouiller de 
Titan sans avoir fait de sauvegarde des programmes et données u 
avant ... è 


Rappelez-vous en, nobles chevaliers intrépides ... 


Pierre DAVID 





Dernière minute: les octets sont codés à l'envers dans les fichiers 
programmes: plus de détails dans le prochain numéro. 
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Calculs sur les fractions, pour HP 71 


Ce petit programme de deux Ko va vous permettre d'effectuer 
très simplement des calculs sur les fractions. Pas très original, 
me direz-vous... 

Eh bien si. Même si de tels programmes poussent comme de mau- 
vaises herbes (cf le mois dernier, sur 41), celui-ci a une origina- 
lité de taille: les calculs sont effectués suivant la notation 
polonaise inverse !: Plus encore, ce programme s'utilise comme les 
calculs au clavier, en Forth ! 

Des différenves existent quand même (c'est normal). On ne peut 
créer de mot (programme) Forth. La pile de données est limitée à 
dix fractions (20 nombres au total), mais ceci n'est pas trop 
contraignant: si vous en voyez le bout avec des calculs au clavier, 
prévengez-moi ... Il n'y a pas, non plus, la plupart des primiti- 
ves de manipulation de la pile. Certaines sont plus issues de la 
HP 41 que de Forth, et elles n'ont qu'une seule lettre. Les 
messages d'erreur sont en français. Le sommet de la pile est 
toujours affiché, sans pour autant qu'il soit perdu (analogie 
avec le registre X de la HP 41). 

Malgré cela, vous pouvez écrire une suite de calculs, comme 
en Forth. Le séparateur est l'espace, et l'utilisation de la pile 
est la même (ou presque) qu'en Forth. 


Utilisation: faîtes (RUN). Vous voyez "y" (accolade), puis le 
curseur clignotant. Ceci vous indique que vous opérez, non plus en 
Basic, mais en mode "“Fraction". 

Avant toute chose, voyons comment introduire les nombres dans 
la pile. Vous ne trouverez pas plus simple: tapez ce nombre, puis 
(END LINE). Exemple 5/3 (END LINE). 

Si vous entrez un nombre entier, il sera interprété comme une 
fraction dont le dénominateur vaut un. Simple, non ? 

Pour entrer deux ou plusieurs nombres à la suite, séparez-les par 
des blancs (espaces). Exemple: 5/3 (espace) 2/7 (END LINE) 

Vous n'êtes pas limité à 2 nombres, mais si vous dépassez dix 
fractions, le programme vous le signalera avec le message d'erreur 
"Pile pleine", 

Mais vous pouvez aussi éxécuter des fonctions. Celles-ci sont 
représentées par une lettre, et doivent ètre séparées par des 
espaces. On peut les rentrer à la file, ou une par une. Elles se 
divisent en deux groupes: les opérateurs (S, x, -, +, *, I, G), et 
les fonctiôéns de manipulation de la pile (L, D, X, O, C). 

Le caractère " " (symbole du curseur Basic) vous permet de quitter 
le mode fractions. 

Les opérations sont éxécutées suivant la notation polonaise 
inverse, c'est à dire sans parenthèses, sans ordre de priorité, etc. 
Vous introduisez les fractions avant l'opérateur, et tout se 
simplifie comme par miracle... 

Exemples: pour faire 5/3 - 2/7, entrez 5/3 (espace) 2/7 (espace) 
(-), (END LINE). 

(5/3)2: 5/3(espace) 2 (espace) (*) (END LINE). Simple, non ? 
La fraction au sommet de la pile est conservée dans le registre 
spécial LASTx. 

Passons maintenant au détails des différents opérateurs: 


S vous permet de simplifier, suivant l'algorithme d'Euclide, la 
fraction au sommet de la pile. Cette simplification se fait auto- 
matiquement après toute opération. (Mais c'est modifiable très 
simplement selon vos désirs: vous n'avez que des GOT à changer). 
x, — et + sont les fonctions classiques. Rien à dire de particulier. 
La division n'existe pas, car le symbole "/" est utilisé dans 
l'introduction des fractions. 
* (élévation à une puissance) opère de manière similaire aux 
fonctions décrites précédemment. 
I (Inversion): a/b—> b/a 
G (changement de siGne): a/b —> -a/b 
I, G et S laissent LASTx inchangé. 
Les fonctions de manipulation de la pile ont des noms emprun- 
tés à la HP 41 et à Forth. 
La pile est haute de 20 registres, c'est à dire 10 fractions, plus 
le registre LASTx (une fraction). Cette pile est plus Forth que 41: 
elle n'est pas automatique. Son sommet est variable. Il est repéré 
par le pointeur de pile Pl, qui indique toujours le numéro du 
registre à remplir. À noter cependant: le registre le plus haut 
s'appelle, par convention, X, et le suivant: Ÿ. 
L (Lastx) permet de copier LASTx sur le sommet de la pile. 
D (Dup) duplique X dans Y (copie le contenu de X sur la pile). Compa- 
rable à ENTER sur 41. 
X : X échange Y 
O (Over), élimine X (transfère Y dans X) 
C (Clear), efface la pile. 
Ces quelques fonctions permettent donc de manipuler et d'exploiter 
les fractions très simplement. 
Vous pouvez enchaîner Les calculs: par exemple, 
C 5/3 DI G% 2 * (END LINE) donne 1/1. C'est (5/3 x (-3/5))2 
Après tout message d'erreur, l'ensemble de la pile est 
effacé. (Sauf "Commande inexistante“). 
La structure du programme vous permettra d'ajouter vos propres 
fonctions (primitives) à eelles du programme. 


Pour les possesseurs de HP-75, ne vous suicidez pas encore: 
vous pouvez faire des modifications et utiliser ce programme. 
I1 vous suffit de remplacer les étiquettes par des numéros de 
ligne: exemple, en ligne 230, GOTO 'BOUCLE' est à remplacer par 
GOTO 90. N'oubliez pas de détruire le 'BOUCLE': de la ligne 90. 
Supprimez le "OPTION ROUND NEAR' de la ligne 40. 
DESTROY efface les variables dont le nom suit. Exemple, en ligne 
30, mettez AïR=0 (ne pas effacer P, car c'est le tableau P dont il 
s'agit). 
Remplacez IP par INT aux lignes 1240 et 1245. 
Remplacez enfin le Flag 5 par une mémoire qui prendra la valeur 
O ou 1. Cette mémoire peut être la mémoire F, par exemple. 
FLAG (5,0) teste le flag 5 et le désarme. Si il est armé, (=1), alors 
A=-A à la lignel130. 


Je vous laisse calculer, et je vous dis: 
A bientôt, au SICOB. 


Pierre DAVID 
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+ : 
10 
20 
50 
40 
30 I 
69 
70 I 
80 ° 
70 © 
100 
110 
120 
130 
140 
130 
169 
170 
180 
190 
290 
210 
220 
230 


300 
310 
320 
330 


340 


300 
310 
320 
330 
940 
Jo0 
360 
370 
390 
370 
600 
610 
620 
850 
640 
650 
6460 


1000 
1910 
1020 
1050 


1050 
10866 
1070 
1080 


E=1i € 


CALCULS SUR LES FRACIIONS 


DESTROY D$ 
DESTROY K$ € 
DESTROY F,A,R 
OPTION ROUND NEAR € 


DIM K$L801] 


= 
«+ 


CFLAG 
NTEGER F (20) 

Fi=B 
F K#<>°7 
DEBUT’: INPUT °3°,D#;K$ 
BOUCLE”: IF K$[1,11=° © 
S=POS(K#,7 °) 
D=POS(KS#, ° /°) 

L=LEN(KS#) 

IF S=0 THEN S=L 

IF L=0 THEN *FIN’ 

IF D=0 OR S<D THEN ‘COM’ 
IF Fi>20 THEN °FF° 
F(P1)=VAL(K$C1,D-11) 
P(P1+1)=VAL(KS$ED+1,51) 
IF F(Pi+i)=0 THEN * DZ’ 
Pi=Fi+2 

IF S=L THEN °FIN° 
KEH=K$LS+11 

GOTO * BOUCLE” 


THEN 90 


* VER” : 
PFi=Pi-2 
A=P (F1) 
B=P {(P1+1) 
RETURN 


IF F1<S THEN °’FV° 


CONM' : O$=UPROS (K$#EC1, 11) 

IF O$=°S* THEN *SIMPFL" 

IF O$="x*x" THEN ° MULT” 

IF O$-°-° THEN * SOUST”* 

IF O$-=°+° THEN * &DD° 

IF OC$- THEN *PUISS” 

IF O$=°"L" THEN *LASTX" 

IF O$="D" THEN °DUF° 

IF O$=°X" THEN * XECHY° 

IF O$=°0*° THEN ° OVER” 

IF O$=°I" THEN * INV”° 

IF O$=°6G* THEN *° CHSGN° 

IF O$=°C" THEN KS=ES$EI23 & DESTROY 
IF NUM(O+S)<S58 AND NUM(O$):>47 THEN 
IF O$=°>" THEN END 

D$=-* Commande inexistante” 

GOTG * DEBUT” 


FrMme 


 MULT': GOSUE ‘VER’ 
F{Pi-2)=P{F1-2)%XA 
PÉPI-IY=P(PI-1)*5 

GOTG *SIMPL? 

* SOUST': NE=NUM(KSE2,21) 
IF N<SS AND N>47 THEN ° NOMBRE” 
FPÉPI-2YS-PEPFI- 2) 

SFLAG 


Œ 
+ 


FHEN KE$=K$L21 € 


GOTG * BOUCLE” 


D$ € GOTO 
* NOMBRE” 


30 


NO 14 PACE 3€ 


1100 *ADD': GOSUE ‘VER 

1110 F{Fi-2)=F(Fi1-2)xB+F{Fi-1)*xA 
1120 PF{Fi-1)=F(Pi-1)x*xH 

1130 IF FLAG(S,O0) THEN A=-û 

1140 GOTO °SIMPL”° 


200 °FUISS': GOSUEB ‘VER 
1205 IF A/B>0 THEN 1225 
1210 A1=F(FI-2) 

1215 F{F1-2)=F(Fi-i) 
1220 FiPFi-1)=fA1 

1225 Ai=P{FI1-2) "TAES(A/E) 
1250 Bi=F{F1-1) "ABS (A/H) 


12355 IF ABS(FPF(AL))FIE-10 OR ABS(FP(BI))>1E-10 THEN 


1240 PF{F1-2)=IF (A1) 
1245 F{Pi-1)=IP (Bi) 
1250 GOTO °SIMFEL” 


1500 LASTX': IF F1:20 THEN °FP° 
13510 P{F1)=À 

1320 F{PFi+1)=H 

1330 Pi1=P1+2 

1340 GOTO * SUIVANT" 


1400 DUF': IF F13:20 THEN °FP° 
1410 IF Pi£3S THEN °FV° 

1420 P{P1)=F(F1-2) 

1450 FiFi+i)=F{Fi-1) 

1440 Fi=PFi+2 

1450 GOTO * SUIVANT: 


1500 *XECNNY"»: IF PFI<S FHEN PS 
1310 Ai=F{PFi-2) 

1520 P{Pi-2)=P{P1-4) 

15350 F(Pi-4)=fAi 

1540 Ai=F(Pi-1) 

1550 F(Fi-i)=F(Fi-5) 

1560 FiFi-3)=fAi 

1570 GOTO ° SUIVANT” 


1600 OVER’: IF PIi£3 THEN ° PV: 
1610 IF Fi=3 THEN 30 

1420 PFi=Fi-2 

1650 GOTO SUIVANT: 


1700 TINV's IF P1£3 THEN ° PV? 
1710 IF F(Pi-1)=0 THEN ‘DZ’ 
1720 Ai=P(P1-1) 

1730 F(P1-i)=F{F1-2) 

1740 P(PF1-2)=A1 

1750 &=F{Fi-1) 

1780 E=ñi 

1770 GOTO * SIMPL." 


1800 °CHSGN' 3: IF P1£3 THEN °FV° 


19i0 F(Fi-1)}=-FiFi-1) 
1920 GOTO °SINMFL° 
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FI: 


000 
2010 
2026 


20350 


5000 
5010 
5020 
5050 
3040 
5050 
S060 
3070 
S0BC 
3090 
5100 
110 


8000 
8010 
8020 
8050 
8040 
8050 
83060 
8070 


7000 
7610 


NOMBRE” : IF F1:520 THEN °PF° 
FiFI)=VAL(ESC1,S1) 

FiPIi+1)=1 

GOTO 200 


“GSIMPL': IF F{FIi-1)=0 THEN °DZ° 
Ai=8AES(F(F1-2)) 

Hi=AES (F (Fi-—1)) 

"EUCE‘: R=ARI-INT(A1/Hi)*Hi 

IF R€FO THEN AI=HI € B1=R & GOTO °EUCL” 
P{F1-2)=F{P1-2) /B1 
F{Pi1-1)=F(F1-1)/Hi 

IF P{Fi-1)2=0 THEN 35100 
P{PIi-2)=-P{P1-2) 
P{Fi-1)=-FiFi1-1) 

SUIVANT: Kg=KGl27 

GOTO * BOUCLE” 


°PF°: D$="File pleine 

GOTO 20 

“FV°: D$="File vide’ 

GOTO 20 

*DZ°: D$-"Erreur:s /0° 

GOTG 20 

"Fl': D$="" inexacte 

GOTOG 20 

“FIN‘s D$-=STR#(P(PFi-2))8" /"ESTRE(F(Fi-1)) 


GOTOQ * DEBUT” 





Course de voiture, pour HP 71 


Vous ëtes prêt ? Alors, mettez votre casque, entrez dans votre 
bolide, contact, et c'est parti ! Vous allez voir combien les routes 
sont sinueuses à bord de votre HP 71B. 

Votre tâche consistera à rester sur la route, symbolisée par 
un trou de 5 espaces au milieu d'une forêt, le plus longtemps 
possible. Vous controlez (ou plutôt tentez de contrôler) votre 
engin par les touches (<) ou Q pour tourner à gauche, et (>) ou / 
pour la droite. 


Lancez le programme par (RUN). On vous demande alors si vous 
préférez la facilité. La réponse par défaut est "Oui" pour le premier 
jeu, c'est la valeur contenue dans la mémoire D$. 

Tentez "Oui" pour commencer, ça vaut mieux ... 

(END LINE), et c'est parti ! Tout à fait à droite, l'horloge 
intégrée au tableu de bord égrenne les secondes. 

Vous constatez que si vous vous rapprochez du bas-coté, votre 
bolide vous prévient en sonnant à 200 Hz, et pour une durée Epsilon 
(ligne 250). La difficulté va croissant, et elle atteint son 
maximum après 35 secondes de jeu. 


Une fois que vous vous êtes fait projeter dans le fossé, vous 
subissez l'humiliation de l'affichage de votre score. 
Un appui sur (€), (>), (Q) ou (/) vous fera recommencer une partie 
avec le même niveau de difficulté. 
Si vous appuyez sur (END LINE), vous avez le choix pour un autre 
niveau, 
Si par contre, vous appuyez sur toute autre touche (sage précaution) 
le jeu sera terminé, et la touche sera prise en compte (ligne 53%) 


Si vous aviez choisi le niveau difficile (au fou !), vous 
n'auriez pas eû l'affichage de l'horloge, pour accélérer le jeu. 
Pour cette même raison, votre bolide ne fait pas de bruit quand il 
passe sur le bas-coté. A titre indicatif, mon meilleur score est de 
6 secondes environ... 


Si vous le voulez bien, soulevons maintenant le capot: 
Variables: T-horloge 
R-position de la voiture sur la route 
Ré=route, c'est à dire 5 espaces 
C=code pour la constitution des caractères 
Cé=chaîne de caractères qui contient les codes précédents 
S$-sauvegarde du jeu de caractères (lignes 60,70 et 520) 
Dé-niveau de difficulté (0 ou N) 
I et A$ variables brouillons 
Initialisation: 
Ligne 20: RESTORE permet de remettre à 550 le pointeur de DATA 
ligne 30: on passe en mode Majuscules 
ligne 40: destruction des variables dont les noms suivent 


x 


ligne 80 à 120: constitution du jeu de caractères: 


chré (428) ré (429) 
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ligne 140: question. Réponse par défaut: D$. Réponse dans D$ 
ligne 150: on prend simplement le premier caractère 
ligne 160: au début, la voiture est au milieu de la route 


Boucle "Facile 

ligne 220: on protège les 7 premiers caractères sur l'afficheur 
(ce sont 7 arbres). WINDOW 8 permet d'écrire seulement dans les 
colonnes 8 à 22 

lignes 260 à 290: boucle d'attente pour saisir la touche enfoncée. 
#47 est le code de (<), #48 de (>) 

ligne 300: on change aléatoirement la position de la voiture si 
aucune touche n'a été enfoncée 

ligne 310: on teste, et on va au label FIN si la voiture est dans 
le fossé. 


Boucle "Difficile" 

C'est presque la même que la précédente, sauf quelques lignes en 
moins pour augmenter la rapidité. 

Ligne 340: WINDOW 9,13 permet d'afficher seulement dens les colonnes 
9 à 13 (milieu de l'écran). Afficher dans une zone réduite augmente 
sensiblement la vitesse. 


Label "FIN" 

WINDOW 1 place l'afficheur sans zone réservée. 

DISP avec DELAY différent de O permet de vider le buffer de 15 touches 
lignes 480 à 500: choix. #38 est le code de (END LINE) 

ligne 5%0: on pousse A$ dans le buffer pour être éxécutée à la fin. 


Pour entrer les lignes 210, 240, et 330, vous aurez peut-être 
quelques problèmes: le caractère de code 128 n'est pas accessible 


au clavier. Qu'à celà ne tienne ! 
Assignons CHR#(128) à une touche: KEY ‘'q',CHRS#(128); (END LINE) 
voilà: quand vous avez fini, vous désassignez la touche. 


Allez, bonne route, et n'oubliez pas que la 


vitesse est limitée à 90 km/h ... 


Pierre DAVID 
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CO 


10 
20 
50 
40 
90 
&Q 
70 
80 
so 
100 
110 
120 
1350 
140 
150 
1860 
170 
180 
190 
200 
210 
220 
230 
240 
250 
280 
270 
280 
290 
50 
310 
320 
3350 
540 
350 
560 
370 
380 
5970 
400 
410 
320 
450 
440 
450 
489 
470 
480 
490 
500 
io 
J20 
330 
540 
390 
560 


RSE DE VOIIURE 


DISF ‘Un instant, S.V.P.° 

RESTORE 

LC OFF 

DESTROY T,R.I,C,C# 

IF D$<5°0* AND D$<r;° N° THEN D$=°0" 
DIM S$HCLEN{CHARSETS)13,RSCS1,C#L121 
SH=CHARSETS 

FOR I=i TO 12 


RERD € 
CH=CERCHRSE (C) 
NEXT I 
CHARSET C$ 
R$=° * ! 5 ESPACES 


JEU‘: INPUT ‘Facile (O/N) ? °,D$;D$ 
D$=D#$C1,11 

»JEU2’: R=3 

DELAY © 


IF D$="0" THEN ‘ EOUCLE1° 

IF D$=°N* THEN ° BOUCLE2° 

GOTO 140 

? BOUCLE 1°: DISF © 5 ! 7 FOIS CHR$(1289) 

WINDOW 8 

T=TIME-1 

DISF RÉLCI,R-1IRCHRS# (129) RREER+11;° SSTRS(IPUTIME-T)) ! cf 210 


IF R=i OR R=5 THEN BEEF 200,EPS 
FOR I=i TO 40 STEF TIME-T+S 
IF KEYDOWN(°#47°) OR KEYDOWN("0°) THEN R=R-i & GOTO 310 
IF KEYDOWNC"#40°) OK KEYDOWN(®/°) THEN R=R+1I & GOFTG 310 
NEXT I 
R=R+INT (RND4Z—-1) 
IF R<1i OReR?S THEN FIN? 
GOTO 240 
* HOUCLEZ2" 3: 
WINDOW 9,13 
T=TIME 
DISF R&CI1,R-1I1XCHRS (129) LRECR+1I] 
IF KEYDOWN(®#47°} OR KEYDOWN(°O°) THEN R=KR-1i & GOTO 400 
IF KEYDOWN("#48°) OK KEYDOWN(®/7) THEN R=K+i & GOTO 400 
R=R+INT (RNDX3—1) 
IF RE OR RES THEN ‘FIN 
GOTO 3560 
"FIN‘s F=TIME-T 
DELAY .5 
WINDOW 1 
REEF 
DISF °C KR A S H . : 7 
DISF ‘Tu as tenu';1:'sec.” 
AS=ÉEYS € IF A$=°° THEN 480 


DISF © * ! 22 FOIS CHK$(128) 


pen, 


IF A$="#47" OR A$= "#46 OR A$="Q7 OR ÀAS=°/° THEN ‘JEUX’ 
IF A$S=" #58" THEN ‘JEU 

DELAY © 

CHARSET S$- 

PUT 46% 

END 


DATA 14,51,25,31,14,0 
DATA 64,224,80, 80, 274,64 





Additif au banc d'essai du HP 71B 


Le banc d'essai paru dans le numéro précédent de JPC a été 
écrit après deux semaines d'utilisation. Bien que fort complet, il 
mérite quelques rectificatifs et additifs. 

Le Basic qu'il empioie n'est pas encore courant, mais va 
certainement le devenir, puisqu'il s'agit d'un Basic aux normes 
de l'ANSI, organisme américain qui a déjà fait ses preuves avec 
Fortran 77, ou Cobol 74, par exemple, et qui sont des langages 
bien reconnus aujourd'hui. Notons que cette norme a été traduite 
en français par l'AFNOR. Cette norme concerne le "minimal Basic". 
L'ANSI prépare une autre norme, qui constitue le “Basic complet". 
Notons que le Basic du Titan reprend certaines caractéristiques 
du "Complet". 

Un point important du 71 est son analyseur syntaxique. de 
m'explique: Sur la plupart des ordinateurs, (sauf le DAI, les 
Sinclair et quelques autres) chaque ligne introduite est 
enregistrée telle quelle dans la mémoire. Titan, lui, la vérifie, 
et vous signale toute erreur, Si pour celui qui ne le connait pas, 
rentrer un programme est un enfer, pour l'utilisateur normal 
ça accélere et la mise au point, et la recopie à partir d'un 
listage. C'est ce même analyseur syntaxique, qui permet de 
rentrer 5 + 3% (ENDLINE), sans que la ligne 5 soit effacée. 

Essayez de faire ça avec n'importe quel autre ordinateur. Ce qui 
me fais le plus rire, c'est de voir certains constructeurs 
japonais qui sont obligés de mettre à un seul ordinateur de 
poche, une touche RETURN, et une touche ENTER. Une pour les 
calculs, une pour les lignes de programmes. Je ne citerai pas 

le nom du journal qui a mis "simple, mais il fallait y penser" 
dans son banc d'essai, car j'aime beaucoup ce joumal, et 

je ne veux pas le ridiculiser... 

Si l'analyseur syntaxique permet de trouver les erreurs 
de ... syntaxe, chercher les erreurs de raisonnement, ou de 
programmation est nettement plus dur. Alors Titan a une touche 
SST, qui permet de suivre en pas à pas un programme: si plusieurs 
instructions sont présentes sur la même ligne, une seule sera 
éxécutée par pression sur SST. 

Notons qu'AUTO facilite énormément l'écriture des programmes, 
et RENUMBER la présentation et le rajout de lignes. 

Une possibilité qui ne m'a jamais été donné de voir: les 
tableaux peuvent ètre redimmensionnés, sans perte des informations 
contenues dedans, sauf en cas de compression, bien sur : 

Les valeurs logiques sont communes à bien des ordinateurs, 
mais quel régal ! 

Les touches pressées sont mises dans un tampon de 15 touches. 
KEYS# enlève une touche (la demmière appuyée), et KEYDOWN ne fait 
que tester la touche en question, sans rien changer au tampon. 

Très complet, ce traitement du clavier permet de gérer une 
répétition automatique par programme ( à ce moment, elle n'est plus 
automatique pour le programmeur), ou bien on peut penser à des 
jeux qui n'ont rien de réflexion, mais qui font passer des bons 
moments entre amis. Voir à ce sujet le programme de course de 
voiture dans ce numéro... 


Maintenant, permettez-moi de répondre à certaines critiques 
ou suggestions que m'ont fait certains lecteurs de JPC. J'ai jugé 
bon d'y répondre par l'intermédiaire de ce Jjoummal, car vous 
pouvez, vous aussi, vous poser ce genre de questions. 


HO j4 PACE 45 


Non, HP ne m'a pas offert de pots de vins, pour signaler 
que Titan est archi-puissant, Ce que j'ai mis dans cet article 
est l'impression que j'ai de cet engin. Ni plus, ni moins. 

Sans entrer dans les détails, sachez qu'au moment où j'ai 
commencé à apprendre le Basic, un ordinateur qui possédait 

le ELSE après le IF était chose rare, et recherchée. 

Ceci me permet d'apprécier les bonnes choses à leur juste 
valeur. Le 75 possède des qualités intéressantes, mais le 

HP 71 le dépasse sur certains points. Le titanesque Basic ne 
sera pas démodé de sitôt. Il est réellement très puissant, et 
je ne dis pas ceci pour faire plaisir à HP. De toutes manières, 
ils ne nous paient pas, et nous n'avons pas de capitaux chez eux. 
Ce banc d'essai était écrit pour vous informer sur un 
évenement important, et non pour faire de la publicité 
gratuite. 

Certains, qui me connaissent bien, m'ont demandé comment 
cela se faisait que j'ai résisté à la tentation de l'ouvrir. 

Ma position est claire: ce matériel m'est prété. Et de toutes 
manières, il faut des clefs spéciales (btr), pour mettre à 
l'air ses entrailles. 

Mais sans l'ouvrir, je peux vous dire que Titan possède un Quarcz 
à 32,768 kHz, qui contrôle l'écran et l'horloge temps réel, et 
un circuit RLO qui fait "tourmer" le microprocesseur à 640 kHz. 
Tiens, c'est la même fréquence, et le même système que la HP 41. 
Pourrens-nous accélérer Titan ? C'est bien possible. 

La Ram (mémoire vive), est de 17,5 Ko. 1,5 sont utilisés par 
l'écran, donc 16 restent pour l'utilisateur. Au premier allumage 
de la machine, MEM (mémoire disponible) donne 16955 octets. 

Le système d'adressage est d'une complexité rarement atteinte, 
même chez HP. Mais rassurez-vous: même en Assembleur, vous n'aurez 
pas à vous en occuper. 

D'autres, enfin, ont reproché au 71 son manque d'instructions 
de structuration , tel que BEGIN UNTIL, WHILE WEND, CASE, ENDIF, 
etc... Ces instructions sont plus Pascal, ou Forth que Basic 
Gardons chaque chose à sa place. De toutes manières, de telles 
instructions verront le jour: une des propriétés des langages HP 
est la non-rigidité. Comme je l'ai souligné lors du descriptif 
du module Forth-Assembleur, il est très facile de créer une 
instruction Basic (mis à part la difficulté inhérente à l'assem- 
bleur). C'est donc pour cette raison que je ne m'inquiète pas 
trop des lacunes éventuelles de Titan: elles seront bientôt 
comblées, soit par HP, soit par PPC. 


Enfin, pour vous mettre l'eau à la bouche, sachez que des 
disquettes HP-IL seraient en préparation (non, ce n'est pas encore 
un poisson d'avril). Le prix serait légerement supérieur à celui 
du lecteur de cassettes. Non encore annocées officiellement. 

Quelque chose me dit qu'on aura,un de ces jours,un HP 71(x) 
et qui devrait se différencier par la quantité de mémoire de base. 
L'histoire ne se répete jamais deux fois ? 

Sacré HP, grand-mère nous réserve toujours des bonnes 
surprises... 


Rappelez-vous: mangez des nouilles, mais ne le ratez pas ... 


Pierre DAVID 
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tous bisiter Le BBC 


EXPOSITION INTERNATIONALE 


DE MINI-MICRO INFORMATIQUE 
14-19 MAI 1984 - CNIT PARIS LA DÉFENSE 


VOUS! qui êtes interressés par les réalisations des clubs 


PPC et CCD en France, en Europe et dans le monde, que vous 


adherez à l'une de ces associations ou non, 


TOUS les passionnés de calculatrices programmables, 


VENEZ NOUS VOIR AU STAND ORGANISE PENDANT LE SPECIAL 
SICOB DE PRINTEMPS DU 14 AU 19 MAI AU NIVEAU 4 DU CNIT 
VOUS Y DECOUVRIREZ DES REALISATIONS QUE VOUS AUREZ DU MAL 
À IMAGINER. 


Les CLUBS 


MPPC et CCD'' proposent un riche programme d'animation: 


INFORMATIONS GENERALES, SUR LA VIE NATIONALE ET 
INTERNATIONALE DES CLUBS; 

INFORMATIONS TECHNIQUES SUR LES MATERIELS ( HP ou NON #P ) 
ET SUR LES DIFFERENTES METHODES DE PROGAMMATION; 
DEMONSTRATIONS DE MATERIELS ET ‘7: LOGICIELS; s 
EXPOSITION, CONSULTATION et DIFFUSION DE DOCUMENTATION 
PRESENTATION DE DIVERSES ROM !CCDROM, ZENROM, ...) 


Ce sera l'occasion pour 


pour les neophytes et les débutant de s'initier 

au maniement des calculatrices programmables; 

pour les chevronnés de faire part de leur expérience 
devant un large public et de connaître le nouveau 
matériel HP ( HP71, HP75D ); 


pour tous de se connaître. 


Pour tous renseignements: 


Es 


si vous désirez tenir le stand, écrivez au club PPCPC 
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